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ABSTBACT 


The  instruction  sat  of  the  TI-59  Programmable  Calculator 
bears  a  close  similarity  to  that  of  an  assembler.  Though 
mos-  cf  tha  calculator  instructions  perform  primitive  data 
irovement  and/or  sequence  ccntrol,  some  can  do  the  wcrk;  of 
small  high  level  language  procedures.  Regardless  of  -his 
fact,  tc  design  and  debug  TI-59  programs  of  cod^^rate  size 
can  be  mere  difficult  t.han  doing  -he  ccmpucations  them- 
selves. Prcgramming  in  a  higher  order  language  such  as 
BASIC  offers  many  advantages  over  calculator  cede.  This 
report  presents  the  design  and  implementation  of  a  cross- 
compiler  which  translates  correct  BASIC  programs  into 
equivalsnt  TI-59  programs.  This  software  package  includes  a 
linker  which  maps  calculator  instructions  to  a  se-^,  of 
magnetic   cards.  The  cards      are   then      used    tc      inplament   a 

manually  operated  virtual  memory  system  for  the  calculator. 
This  expands  program  step  capacity,  and  permits  more  complex 
programs  tc  be  written  in  BASIC  language  for  translation 
into    TI-59    instr ucticns. 
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I-    INIHODUCTION 

Hand-held  prcgraiciiiable  calculators  provide  an  extremsly 
portable      means      of    ccmputaxion.  Designed      primarily      for 

small-seal^  iiumerical  computation,  these  devices  are  limited 
by  their  small  memory  capacity,  slow  processing  speed,  and 
inabili-y        to        perform  symbol        manipulation.  These 

constraints,  however,  canno-  hide  the  programmable  calcula- 
tor's usefulness  and  power  as  a  computational  tool.  The 
instruction  sets  of  these  machines  resemble  tiiose  of  assem- 
blers. Most  instrucxion  words  are  primitive  and  perform 
simple  data  movements  or  sequence  control.  Yet,  seme 
specialized  instructions  do  the  wori^  of  small  high  order 
language  procedures.  Typical  examples  include  polar  to 
rectangular  coordinate  conversion,  trigonometric  functions, 
and  logarithmic  functions.  In  most  assembly  languages  these 
operations  must  be  constructed  from  primitive  instructions. 
Even  with  these  added  features,  the  designing  and  debugging 
of  calculator  programs  for  non-trivial  problems  often 
requires  an  expenditure  of  effort  wnich  conceals  the  useful- 
ness   of   the    final    product   as    well   as    the   calculator. 

There  are  a  number  of  reasons  for  this  difficulty.  The 
lack  of  a  sophisticated  display  mechanism  such  as  a  CRT 
prevents  the  user  from  viewing  more  than  a  single  data  item 
or  instruction  at  any  given  time.  Printing  devices  can  lend 
assistance,  yet  most  provide  little  more  than  a  means  of 
dumping  memcry  contents.  Furthermore,  program  debugging  can 
be  very  difficult  if  the  only  error  diagnostic  is  a  single 
flashing   display  or    an  incorrect    result. 

Maximum  memory  storage  capacity  constrains  even  main- 
frame ccnputers.  One  solution  has  been  the  implementation 
of    virtual      memory,       whereby   a    relatively      limitless    on-call 
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secondary  store  is  used  to  back  up  the  primary  s-orags. 
Programmable  caiculatcrs  usually  hava  secondary  storags  in 
the  fcrm  of  magnetic  cards.  Normally,  -hese  cards  are  used 
as    archival      rather    than   on-call    storage.  The    instruc-ion 

sets  of  calculators  are  generally  a  cross  between  assembler 
instructions  and  a  math  function  library.  Compared  to  an 
assembler,  the  calculator  instruction  se-^  is  small  and 
includes  only  the  most  basic  sequence  controls.  Though  it 
is  possible  to  build  more  sophisticated  control  constructs 
from  the  primitives,  such  endeavors  are  often  constrained  by 
storace  capacity.  As  a  result,  if  complex  programs  are  to 
fit  into  memory,  it  becomes  necessary  to  laarn  or  invent 
machine   dependent   "tricks." 

The  programmer's  inability  to  use  meaningful  names  for 
variables  can  create  more  difficulties  during  calculator 
programming.  'Numerical  register  indices  (a  form  of  absolute 
addressing)  must  be  used  to  reference  variables.  One  of  the 
major  advantages  of  assemblers  is  that  they  provide  for 
variable  naming.  While  composing  his  code,  the  calculator 
programmer  must  either  remember  the  register  indices  of  his 
variables  or  continuously  refer  to  his  own  written  symbol 
table  while  composing  code.  Both  methods  become  more  error 
prone  as  the  number  of  variables  in  use  grows.  Programs  of 
any  substantial  computing  power  usually  require  large 
numbers   of   variables. 

The  problems  associated  with  calculator  programming  are 
many  of  the  same  problems  which  plagued  experienced  program- 
mers of  large  scale  computers  in  the  past.  How  can  a 
beginner  be  expected  to  design  good,  sophisticated  programs 
for  a  pocket  calculator  if  it  can  oa  so  difficult  for 
someone  with  experience?  One  concludes  that  the  majority  of 
users  write  small,  relatively  straight  forward  programs  and 
never    fully    utilize    the   power   of   such   calculators. 
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Ihe    Texas      Instrumerms    TI-59    Programmable      Calculat-cr    is 
one    of      the    mors   popular    models.  Its    value   as      a    powerful 

engineerirg  tool  is  indicated  by  i-s  use  at  t.he  U.S.  Naval 
Postgraduate  School  and  in  the  U.S.  Army  Field  Artillery. 
Yet,  sophisticated  programming  of  -he  TI-59  suffers  from  the 
vary  weaknesses  mentioned  earlier.  Why,  then,  should  there 
be  such  interest  in  this  device?  Perhaps,  the  best  answer 
to  this  question  is  provided  by  Hamming  [Ref.  1].  He  feels 
that  such  a  primitive  programming  machine  offers  the  user 
valuable  experience  because  it  is  easy  to  operate  and  allows 
the  beginner  direct  access  to  very  basic  computing  hardware. 
Eat,  he  warns  that  attempting  mastery  of  the  TI-59  language 
is  a  waste  of  time.  Cne  who  must  do  sophisticated  or  exten- 
sive prcgrairming  for  this  calculator  should,  instead,  use  a 
cross-ccmpiler      to    automate      and   reduce      his    effort.  This 

report  presents  the  design  and  implementation  of  cne  such 
cross-ccmciler    for    the  TI-5  9. 
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II.     SOFTWARE    BE^UISEMENTS 

A  systematic  approach  to  software  developmen-  begins 
ith  the  defining  of  general  requirements.  In  this  case, 
the  basic  design  goal  is  -ha  production  of  an  effective 
software  tocl  which  will  simplify  program  development  and 
increase  memory  capacity  for  -he  TI-59  Programmable 
Calcula-or.  Achievemem:    of      this      goal      should    result      in 

several  enhancements  to  the  utility  and  capability  of  -he 
calculator.  There  will  be  an  increase  in  its  ability  to 
execute  larger  and  mere  sophisticated  software.  Host  compu- 
tations which  can  be  programmed  in  BASIC  an'3  some  existing 
BASIC  software  (which  may  require  minor  modifications  to  be 
explained   later)    will   become    as    portable   as   the    TI-59. 

Important  requirements  for  a  user-criented  language 
translation  system  should  include  that  it  be  easy  to  use  and 
easy  to  learn.  The  EASIC  programming  language  is  an  obvious 
choice  for  the  source  language;  it  is  popular,  simple,  and 
easily  learned.  More  importantly,  many  BASIC  constructs  and 
key  words  are  similar  to  those  of  TI-59.  This  similarity 
and  th?  fact  that  both  languages  are  line-oriented  and 
sequential  in  nature  greatly  facilitates  translation  between 
them . 

Many  versions  of  the  BASIC  language  currently  exist. 
Because  of  its  availability  at  the  Naval  Postgraduate  School 
and  its  having  many  structured  control  flow  constructs, 
Waterloo  EASIC  Version  2.0  (WBASIC)  [  Ref .  2],  was  chosen  as 
the  specific  source  language  to  be  implemented  by  this 
compiler.  The  power  of  the  TI-59  compared  to  the  WEASIC 
language  places  restrictions  upon  the  set  of  WBASIC  commands 
which  can  be  translated.  The  specific  WBASIC  subset  imple- 
mented   is   deferred    to   the   discussion    of    design   issues    in   the 
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r.ext  chapter.  Whil<=  WBASIC  is  easy  to  Isarn,  it  should  bs 
apparent,  that  subsettir.g  the  language  will  introduce  excep- 
tions and  restrictions  which  will  tend  to  complicate 
learning    for      the   novice      and   confuse      the    veteran.  It   is 

desirable  tc  maintain  as  few  exceptions  as  possible,  and  to 
require  that  restrictions  be  clean  and  obvious.  A  construct 
should  be  implemented  as  completely  as  possible  (within 
obvious  limitations,  such  as  the  file  handling  or  alphanu- 
meric  features)     or    net  at   all. 

Provision  for  error  detection  and  debugging  is  another 
important   requirement     of  a    language    system.  The    intended 

use  of  this  initial  system  will  be  as  a  supplement  to  an 
existing      WEASIC   interpreter      or    compiler.  As    such,        the 

cross-compiler  will  assume  error-free  source  program  input. 
The  only  requirement  for  error  detection  will  be  for  the 
compiler  to  recognize  words/constructs  which  are  not  imple- 
mented, but  which  are  ordinarily  legal  WBASIC  commands. 
Debugging  of  TI-59  programs  is  so  much  more  difficult  than 
debugging  of  higher  level  language  programs  that  it  is 
reasonable  tc  assume  that  a  user  would  prefer  to  debug  his 
WBASIC  program  using  the  WEASIC  interpreter/compiler  avail- 
able. Cnce  the  program  is  logically  correct,  it  may  be 
cross-compiled  to  TI-59  code,  at  which  tiie  it  will  be 
checked    for    subset    and  calculator   capacity    errors. 

The  II-59*  s  designers  have  provided  it  with  capabilities 
which  can  be  roughly  equated  to  the  power  of  higher  level 
language  routines.  Interchangeable  Solid  State  Software 
(trademark  of  Texas  Instruments,  Inc.)  modules  allow  on-line 
access  tc  utility  program  libraries.  Program  steps  required 
to  call  them  and  the  exclusive  reservation  of  particular 
registers  are  usually  the  only  storage  costs  paid  for  use  of 
these   library  programs.  It    is    required   that     the    power  of 

these  modules  be  harnessed  by  the  translator  under  design. 
Additionally,    other    sophisticated   features   of   the   calculator 
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should  fce  exploited  whenever  possible  in  order  to  maximize 
and  enhance  advantages  gained  by  high  level  language 
programiiiing. 

The  linker  will  statically  linic  the  steps  cf  TI-59 
programs  so  that  it  will  not  be  necessary  for  a  complete 
program  tc  reside  in  calculaxor  step  storage  during  execu- 
tion. Since  the  s'<»apping  in  and  out  of  meacry  modules  in 
the  form  cf  magnetic  cards  can  become  quite  complicated  for 
a  running  process,  it  will  be  necessary  to  keep  this  manual 
system  as  transparent  to  -he  user  as  can  be  reasonably 
expected.  The  fact  that  the  calcula-or  has  a  single  item 
display  window  and  associated  register  will  certainly 
restrict  the  degree  cf  transparency  which  might  otherwise  be 
possible. 

A  system  must  perform  static  linking  if  it  exceeds 
program      storage  available      to   it     during    execution.  This 

program  will  be  segmented  into  overlays  according  to  the 
size  cf  memcry  available  to  it  and  the  portions  of  code  it 
needs  to  execute  at  any  given  time.  That  a  program  be 
segmented  so  as  to  minimize  overlay  swapping,  must  be  an 
additional  explicit  requirement  cf  a  linker  whose  overlay 
swapping  will  be  supervised  manually.  It  is  assumed  that  we 
cannot  significantly  affect  the  execution  speed  of  the 
calculatcr.  Thus,  the  intent  of  th=  minimization  require- 
ment should  be  obvious — suppress  program  segmentation  which 
will    tend    tc   involve    human    thrashing. 

The      system      source      code    must      be      portable.  In      the 

simplest  case,  it  is  desired  that  the  unmodified  source  cede 
be  capable  of  utilization  on  any  machine  which  possesses  the 
resources  tc  store,  compile,  and  execute  it.  Because  of 
operating  system  variations  in  such  conventions,  as  file 
naming  and  handling,  transfer  and  processing  of  the  source 
code  in  urmcdified  fcrm  on  another  machine  (with  operating 
system    different   from   that    on    which    it   is    developed)     will    be 
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very  unlikely.   However,  the  need  for  changes  should  te  kep- 
to  a  mininiuni  and  should  be  localized. 

Finally,  as  with  mosi:  all  major  software  projects,  mair.- 
tanence  and  readability  are  considered  paramount.  Even 
after  its  completion,  the  system  will  certainly  contain 
undiscovered  bugs,  areas  to  improve,  and  room  for  additions. 
Furthermore,  development  of  a  large  prototype  software 
system  requires  a  great  deal  of  careful  planning  for  addi- 
tion and  modification.  Adherence  to  the  programming 
principles  which  supccrt  both  readability  and  maintenance  is 
absolutely  necessary.  Additionally,  detailed  documentation 
of  the  source  code  will  supplement  and  assist  in  achieving 
these  goals. 
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III.    PSELIfllMRY    DESIGN 

Aftar  reguirsments  dafinition  the  next  srep  in  the  soft- 
ware engineering  process  is  the  formulation  of  a  preliminary 
design.  Sound  software  design  principles  are  applied  to 
previcusly  stated  requirements  to  construct  the  framework 
for  a  software  solution.  It  is  during  this  phase  of  design 
that  lany  of  the  most  critical  decisions  are  made.  These 
decisions  msy  be  based  upon  a  variety  of  considerations, 
each  of  which  directly  impacts  the  software  organization. 
These  decisions  and  the  resulting  organization  are  explored 
in    this   chapter. 

A.       PEELIiJINAHY    E2SIGH    DECISIONS 

Before  a  design  can  be  formalized  the  engineer  must 
investigate  all  design  options  and  tools  available.  The 
following  section  summarizes  the  major  decisions  which 
strongly  influenced  and  constrained  many  aspects  of  the 
project.  With  most  large  software  projects,  time  is  an 
extreiely      critical    resource.  As    such,         its    impact      upon 

preliminary  design  considerations  is  usually  quite  strong. 
Keeping  en  schedule  is  generally  cost  effective.  It  will  be 
readily  apparent  that  time  played  a  key  role  in  this  design 
also. 

"^  •      Cross-compiler 

The  fundamental  considerations  which  most  influenced 
design  of  the  BAX59  (EAsic  X-compiler  for  the  TI-59)  cross- 
compiler  were  the  method  of  parsing  it  would  use,  and  the 
language  (s)  in  which  it  would  be  written.  The  availability 
of      several   versions      of   Pascal      at      the   Naval     Postgraduate 
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School  and  the  working  expariencs  of  the  authors  of  this 
rsporr:  with  Pascal  were,  perhaps,  the  ovsrridirig  rsasons  for 
its  early  selection  as  the  iesign  language.  In  additicn, 
the  extensibility,  strong  typing,  and  block  structure  of 
Pascal  suppcrt  modularity,  readability,  and  maintainaoili ty. 
It  was  at  this  point  that  the  parsing  technique  became  an 
issue.  The  decisions  were  reduced  to  a  selection  between 
two  alternate  approaches.  Berkeley  Pascal  was  available  on 
a  Digital  Equipment  Corporation  7AX-1 1/780  with  Bell 
Laboratories'  Unix  operating  system.  The  Unix  system 
included  software  tcols  L2X  and  YACC  which  are  capable  of 
automatically  generating  a  lexical  scanner  and  LALR(1) 
parser  frcrr  an  input  grammar.  YACC  allows  the  user  to 
specify  cede  generating  actions  which  will  be  executed  as 
the  productions  cf  the  grammar  are  processed.  The  alterna- 
tive system  was  entirely  International  Business  Machines 
Corpcraticn.  IBM  Pascal  VS  was  available  on  an  IEM-3033AP 
with  VM/370  operating  system.  This  system  does  not  have  the 
tools  fcr  automatic  generation  cf  a  compiler  front  end. 
Instead,  a  scanner,  recursive  descent  parser,  and  cede 
generator  would  have  to  be  developed  from  scratch. 

While  the  prospect  of  automating  the  development  of 
BAX59  seemed  more  time  efficient  and  lass  trouble,  it  turns 
out  that  subtle  problems  involved  are  many.  A  compiler 
constructed  using  LEX  and  YACC  is  generated  in  the  C 
language,  a  kind  of  structured  assembly  language.  while  it 
is  possible  to  link  ctject  code  compiled  from  Berkley  Pascal 
to  object  cede  compiled  from  the  Z  language,  the  mixing  of 
source  code  tends  to  destroy  the  portability  and  maintain- 
ability required  of  the  system.  Modifications  or 
improvements  to  the  finished  system  could  only  be  made  if 
the  programmer  were  familiar  with  Pascal,  C,  and  their 
interface.  Likewise,  a  machine  would  be  required  to  have 
both  C  and   Pascal  compilers  in  order  to   process  the  source 
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code  for  use.  Thus,  a  recursive  dasc6r.t  compil<=r  in  pure 
Pascal  VS  was  the  alternative  selected.  It  quickly  b-came 
apparent  thar  a  recursive  dsscen*  compiler  would  be  far 
easier  tc  develop  in  pure  Pascal.  Using  a  block  s-ructured 
language  which  supports  recursion,  explicit  use  of  parse 
tables  and  stacks  is  unnecessary.  The  activa-^icn  record 
stack  resulting  from  the  recursive  procedure  calls  implic- 
itly hclds  -the  sane  information  stored  in  a  parsing  stack. 
The  advantage  of  using  Pascal  VS  is  the  powerful  debugging 
tools  which  this  language  system  provides.  While  3AX59  was 
written  in  Pascal  VS,  to  the  greatest  extent  possible  only 
those  constructs  and  features  which  are  standard  Pascal 
[Hef .    3  3   were   used. 

Another  niajcr  consideration  involved  the  identifica- 
tion of  the  particular  WBASIC  language  subset  which  could  be 
translated  to  TI-59.  Both  feasibility  and  time  constrained 
this  selection.  Ccmmands  and  functions  which  primarily 
perform  character  string  and  file  maaipulaticn  were  quickly 
eliminated.  The  TI-59  is  weak  in  alphanumer ics  and  its 
storage  capacity  is  too  small  to  consider  any  concept  of 
file    handling. 

The  WBASIC  language  is  rich  with  matrix  and  array 
functions  and  constructs.  The  overhead  and  difficulty  of 
implementing  these  operations  would  outweigh  any  programming 
benefits  they  could  provide.  As  a  result,  functions  and 
constructs  involving  all  composite  data  types  were  ruled 
out.  With  only  slight  overhead  ,  it  is  possible  tc  imple- 
ment limited  size,  single-dimensional  arrays.  However,  time 
restricticns  required  that  this  concept  remain  a  suggested 
improvement. 

In  crder  to  simplify  the  translation  of  a  WEASIC 
source  program,  it  was  decided  to  allow  the  3AX59  scanner  to 
recognize      all    WBASIC      keywords      as      reserved   words.  This 

provided      a     clear      distinction        between      real      errors      and 
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cccuriances  of  l^gal  keywords  which  had  passed  through  the 
WBASIC  interpreter  but  which  had  not  been  i  irplemented  in  the 
subset.  Otherwise,  legitimate  WBASIC  keywords,  not  iir.ple- 
mented  in  EAX59,  would  be  treated  and  translated  as 
identifiers.  This      obvious    inconsistency      might      be      very 

difficult  for  the  user  to  detect  as  an  error.  It  should  be 
noted  that  WBASIC  function  names  are  not  handled  in  this 
way.  The  reason  is  that  the  user  can  ex-end  the  EAX59 
built-in  function  library.  Further  discussion  of  this  idea 
is    deferred   to    Chapter  IV. 

Appendix  A  is  a  summary  of  the  WBASIC  keywords  and 
functions  which  have  been  i  iplemented  in  BAX59  version  1.0. 
There  are  three  general  categories  of  keywords  recognized  by 
this  cress-compiler.  Command  reserved  words  are  implemented 
WBASIC  keywords  which  indicate  the  start  of  a  particular 
WBASIC  construct  or  statement.  Supplement-al  reserved  words 
are  iirplemented  WBASIC  keywords  which  cannot  be  used  to 
begin  a  construct  or  statement,  bu-  which  can  be  used 
(cpticnally  at  times)  within  same  to  guide  the  interpreter. 
Unimplemented  reserved  words  are  all  WBASIC  keywords  which 
have  not  been  implemented  in  BAX59.  The  use  of  this  last 
category  of  reserved  words  will  result  in  a  fatal  subset 
error   during  translation. 

2,      linker 

In  designing  the  linker  three  major  problems  arose. 
This  first  problem  involved  the  fact  that  the  linker  is 
mainly   a      rest  processor    of      compiled    data.  As    such,         the 

linker  is  highly  dependent  on  the  compiler  portion  of  the 
project.  If  this  dependency  w=re  allowed,  then  most  work  on 
the  linker  would  have  to  be  deferred  until  the  compiler  was 
formalized  and  ir  the  implementation  phase  of  design.  The 
second  problem  involved  settling  on  a  strategy  to  segment 
compiled      cede       according      to    the      software      requirement      to 
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minimize  magnetic  car'3  reads.  Two  courses  of  ac*icr.  wer? 
disccversd,  each  of  which  had  advantages  over  xhe  o-her. 
The  third  prcbleTt  involved  hew  prompting  procedures  were  to 
be  used  tc  ensure  proper  execution  of  *:he  segmented  prograar. 
Procedures  were  required  to  be  user-friendly  and  easily 
understood. 

In  the  first  problem  it  was  decided  to  make  the 
coupling  te*ween  the  linker  and  the  compiler  as  loose  as 
possible  thereby  reducing  the  dependency.  This  was  achieved 
by  defining  a  specific  "third  parry"  interface  between  the 
compiler  and  linker.  This  interface  was  defined  tc  be  a 
text  file  containing  the  four  coded  pieces  of  information 
required    by    the    linker  to  accomplish    its    task. 

This  arrangement  had  several  advantages  and  disad- 
vantages. One  advantage  was  that  it  allowed  for  the 
parallel  development  of  the  linker  and  the  compiler.  Si^.ce 
the  interface  was  well  defined,  no  other  information  needed 
to  pass  between  the  linker  and  the  cross-compiler.  By  using 
this  system,  interfacing  considerations  such  a  naming 
conventions  were  nil  since  each  process  was  totally  indepen- 
dent. Another  advantage  concerned  future  i  aiplamentations. 
It  was  envisioned  that  future  versions  of  the  system  would 
be  implemented  on  microcomputers.  3y  having  the  project 
divided  in  half  both  logically  and  physically  it  would  be 
easily  adaptable  to  the  more  constricting  memory  require- 
ments of  the  microcomputer  environment.  These  two 
advantages  alone  outweighed  the  only  major  disadvantage  of 
the  decision.  The  disadvantage  is  that  the  linker  needed  to 
be  able  to  regenerate  the  compiled  linked  TI-59  code  struc- 
ture which  was  originally  produced  by  the  compiler.  As  it 
turned  out,  this  penalty  was  small  when  compared  to  the 
overall   size  of    the    finished   linker. 
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The  second  prcblem  was  a  very  difficult  problem  -o 
solve.  Eu6  to  tha  liiDited  size  of  -he  calculator  memory  and 
the  cumberscoie  nature  of  the  jagnetic  card  backing  storage 
system,  the  software  requirements  dictate  the  minimization 
cf      magnetic  card      reads.  This      requirement   man^^ated      the 

following      decision:  a  code      segment-break      cannct      occur 

withir  a  backward  loop.  It  would  be  preposterous  to  read  a 
magnetic  card  every  time  a  program  encountered  a  segment 
break  within  a  thousand  iteration  backward  loop.  This  lead 
to  the  following  hierarchy  of  segmentation  rules.  First 
priority,  segmentation  may  not  occur  within  a  backward  loop. 
Second  priority,  maintain  invoked  subroutines  with  the 
invoking   code.  Third   priority,      keep      adjacent    sequential 

code  together.  To  implement  these  decisions  it  became 
necessary  to  examine  the  control  flow  structure  of  an  input 
program. 

The  decision  as  to  how  to  accomplish  this  control 
flow  examination  is  the  foundation  of  linker  design. 
Basically,  two  options  were  determined.  One  dealt  with  tae 
input  program  as  a  whole  and  the  other  dealt  with  it  as  a 
series   of   sequential    parts. 

In  dealing  with  the  input  program  as  a  whole,  the 
design  algorithm  would  check  to  see  if  ths  program  met  the 
memory  liaitations.  If  it  did  not  then  the  algorithm  would 
examine  the  control  structure  and  determine  where  to  make  an 
optimal  break,  that  is,  a  break  in  a  sequential  portion  of 
the  program.  It  would  then  check  each  new  segment  to  ensure 
that  they  complied  with  the  memory  restriction.  The  algo- 
rithm would  continue  until  all  segments  met  the  iremory 
requirements. 

In  the  other  itethod  the  program  was  decomposed  into 
a  series  of  sequential  segments  (a  sequential  segment  is 
defined  as  a  segment  which  does  not  contain  a  backward  loop 
reference      to  any      instruction   other      than      possibly   to      the 
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firs-;:      instruction    of     the    segment).  Ths   algcri-hm      first 

determined      nhe    sequential      segaaen-cs.  Next   xhe      algcri^hm 

combined  adjacent  segments  un-ii  the  memory  limir  was 
enccunterad.  At  xhis  point  a  segmentation  occurred.  The 
memory  limits  were  reset  and  the  combining  process  continued 
until  another  limit  was  encountered  or  the  whole  sequen- 
tially  segmented   input   program    was   processed. 

Tha  second  method  was  selected  for  two  reasons.  The 
first  reason  is  that  the  first  method  eventually  required 
the  evaluation  of  code  on  a  small  segment  Irvel  much  IDc^ 
the  second  to  determine  a  suitable  segmentations  point. 
Rather  than  do  this  and  more,  it  was  decided  to  just  eval- 
uate the  small  segments  and  build  up  rather  than  down.  The 
second  reason  was  that  the  second  method  lent  itself  to  a 
recursive  scluticn  during  the  recombination  process.  The 
recursive  scluticn  greatly  reduced  the  langth  and  complexity 
of   the    segmentation    cede. 

The  third  problem  involved  deciding  upon  a  method 
for    acccirplishing      the   prompting    of      the   user.  One    method 

dealt  with  assigning  coded  prompt  numbers  of  short  length  to 
he    built    into   the   code.        The   other    method    involved    building 


larger      self-explanatory    prompts      into    the      the   code. 


Ths 


second    choice      was    selected. 


This      was    done    to      reduce   the 


number  of  instruction  references  that  a  user  might  have  to 
make  during  the  execution  of  the  generated  calculator 
program.  This  was  in  Iceeping  with  the  requirement  to  make 
the    system    user- friendly  . 

B.       PEELIMINASY    DESIGN   ORGANIZATION 

Thus  far  the  system  design  space  has  been  narrowed  to 
the  design  language,  source  language  subset,  and  the  general 
techniques  for  compilation  and  linking.  Organization  of  the 
software    into      functional  categories      may   now      begin.        This 
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Lixt  phass  of  devslopmeat  is  charac- erized  by  a  nicre 
specialized,  yet  still  preliminary  consideration  of  sys-am 
compcnents.  It  should  be  apparen;:  by  now  that  a  natural 
division  into  two  irajor  functional  components,  cross- 
compiler  and  linker,  has  been  assumed  since  conception  of 
the  system.  For  a  two-man  design  team,  this  partitioning 
appeared  to  hava  the  greatest  potential  for  success.  It 
allowed  the  simultaneous  development  of  two  independent 
system  ccmpcnsnts  of  lew  coupling  [Ref.  4:  p.  85]  and  high 
cohesion  [Ref.  U:  p.  106].  The  result  of  tnis  separation 
was  a  minimization  of  programmer  interaction,  maximization 
of  work  time  efficiency,  and  simplification  of  iT.tsrf acing. 
The  remainder  of  this  section  outlines  the  preliminary 
desigr.  and  organization  of  the  cross-compiler,  linker,  and 
the    direct    interface    between   them. 

1  •      Cioss-Compiler 

The  common  form  of  all  versions  of  BASIC  language 
can  be  characterized  as  imperative,  line-oriented,  and 
sequential-  The  design  of  BAX59  is  based  upon  this  fact. 
Each  WEASIC  line  is  parsed,  beginning  to  end,  by  recursive 
descent.  Equivalent  TI-59  code  is  generated  for  each  line 
concurrently  with  the  parsing  operation.  This  means  that 
BAX59  will  successfully  translate  a  sequence  of  syntacti- 
cally correct  yet  meaningless  WBA3IC  statements  into 
equivalent  TI-59  code.  However,  the  TI-59  code  will  b?  as 
meaningless    as      the    source    code.  For    this    raason,         it    is 

recommended  that  the  user  successfully  execute  his  «EASIC 
source  program  using  a  WBASIC  interpreter  {or  compiler/ 
loader)    prior  to   translation    with   BAX59. 

A  line-oriented  view  of  the  source  code  provides 
several  advantages  to  the  design.  First,  thare  is  a  direct 
sequential  correlation  between  the  original  source  program 
and    the    translated    TI-59    code.         As    will    be   seen    later,    this 
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allows  aasy  managemeL*  cf  the  generated  code  and  iis  associ- 
ated data.  Second,  the  parse  driver  routine  can  be  a  fairly 
simple  loop,  since  lines  are  parsed  to  end  of  line  one  at  a 
time  until  the  end  of  the  source  file.  Third,  viewing  the 
source  as  a  sequence  of  independent  pieces  greatly  facili- 
tates an  iterative  enhancement  approach  [Ref-  5]  to  the 
progressive   development   cf    EAX59.  This    approach    virtually 

guarantees  a  working  prototype  throughout  the  coding  phase, 
and  supports  both  reliability  and  maintainability. 
Modifications  can  be  quickly  tested  within  the  context  of 
the  entire  compiler  system  to  date.  Upon  completion,  the 
programoier  tends  to  have  greater  confidence  in  his  product, 
because    a    great    deal    of   testing    has    already   beer,    conducted. 

EAX59  was  temporally  organized  into  three  major 
functional  sections:  initialization,  translation,  and  reso- 
lution. The  primary  operations  performed  by  initialization 
involve  setting  up  data  structures  and  initializing  variable 
values.  There  are  three  major  data  structures  manipulated 
by  the  translation  section:  the  reserved  word  table,  the 
symbol  table,  and  the  code  data  structure.  Conceptual  sub- 
divisions of  this  section,  namely  the  scanner,  the  parser, 
and  the  ccds  generator,  manage  each  database  respectively. 
While  the  scanner  is  a  separate  routine  by  itself,  the 
parser  and  code  generator  are  not  as  separately  defined. 
These  functions  are  actually  performed  concurently  by  a  set 
of  mutually  recursive  procedures  under  the  direction  of  the 
main  driver.  This  driver  calls  tne  correct  subprogram  into 
executicn  as  its  corresponding  wBASIC  construct  is  recog- 
nized. Cnce  translation  has  been  completed,  the  resolution 
section  processes  the  generated  code  into  a  form  suitable 
for  final  output.  This  includes  label  insertion,  peephole 
optimization,   and  absolute    address  resolution. 
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2.      linker 

The  linker  was  organized  inuo  -chrea  phases.  The 
design  cf  these  phases  were  -che  direct  resul-s  cf  the 
preceeding    design   decisions    made   in   the    preliminary    phase. 

The  first  phase  is  the  direct  result  of  the  loose 
coupling  tetween  the  linker  and  coapiler  and  the  decisicn  to 
combine  small  sequential  segments  to  form  memcry-size 
constrained  segments.  It  is  tne  preprocessor  phase.  This 
phase  processes  the  interface  input  file  and  reccnstracts 
the  ccmpiled  linked  code  structure.  In  addition  the  prepro- 
cessor determines  the  sequential  segments  of  cede  and 
constructs  an  internal  data  table  called  the  segment  table 
which  is  used  by  tne  second  phase,  the  segmentation  phase. 
The  segmentation  phase  utilizes  the  recursive  algorithm  to 
recombine  sequential  code.  The  postprocessor  phase  is  the 
result    of   output   design   decisions.  This    phase    inserts   the 

prompting  cede  and  develops  the  segmented  cede  lists  to  be 
output  to  the  user.  It  then  produces  the  code  in  a  text 
format    together    with    specific    instructions    as   to    its    use. 


3. 


lirect    Interface 


The  design  organization  is  bull*-  around  the  loosely 
coupled  compiler  and  linker.  This  coupling  is  made  possible 
through  the  rigid  definition  of  the  interface  text  file. 
The  crgar.iza+ion  of  this  text  file  is  critical  to  the  design 
and    will    te    described   in    more    detail. 

The  text  file  is  the  only  direct  transmittal  of  data 
between  ccmpiler  and  linker.  Four  pieces  cf  data  are  trans- 
mitted. They  are  the  following:  a  number  signifying  the 
next  register  available  for  use;  generated  code  list  in  a 
numeric  fcriratted  form;  text  containing  DATA/R2AD  informa- 
tion; and  text  containing  the  mapping  of  TI-59  registers  to 
BASIC    varibles.       Each   piece    of    information    is    preceeded    by   a 
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$XXX  in  the  first  columr.  where  XXX  is  a  Lumber.  This  simfle 
format  enables  the  linker  -^o  easily  locate  the  correct 
information  and  process  it  accordingly.  Since  this  is  the 
cnly  explicit  interface,  the  compiler  and  linker  are  net  as 
dependent  en  each  other  as  they  would  have  been  in  a  closely 
coupled  system. 
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IV.    PgTAILjD    DESIGN 

The  source  code  contained  in  Appendices  C  and  D  provides 
high  resolution  understanding  of  the  system.  However,  in 
order  to  provide  rationale  behind  design  issues  for  a 
language  systea  comprised  of  almost  10,000  lines  of  code  and 
comment,    discussions    of   some    detail    are    in    order. 

It  is  net  our  intention  to  explain  everything.  what  we 
wish  to  do  in  this  chapter  is  to  introduce  design  details 
and  strategies  of  the  more  important  concepts  and  components 
in  the  system.  This  will  serve  to  illustrate  software  engi- 
neering  and    how    it    is   used    in   this   project. 

Upon  the  completion  of  preliminary  design,  the  detailed 
design   is    begun.  It  is   during   this    phase      that   the    actual 

details  of  full  implementation  are  defined  and  laid  cut 
prior  to  coding.  Categorized  •mder  cross-compiler  and 
linker,  the  general  format  for  the  sun-sections  of  this 
chapter  will  include  an  informal  solution  strategy  for  a 
specific  design  problem,  followed  by  a  discussion  of  the 
major  data  objects  and  procedures  which  manipulate  those 
objects.  Where  appropriate,  inter-procedure  interfacing 
criteria  are  outlined.  In  several  cases,  significant  prob- 
lems, their  solutions,  and  possible  system  improvements  are 
discussed.  The  last  section  presents  implicit  interface 
design    which  impacts    greatly   on   the    system. 

A.       CBCSS-CCMPILER 

The  fundamental  design  of  3AX59  is  a  finite  state 
machine  driven  by  a  main  loop.  Once  values  and  data  struc- 
tures have  been  initialized ,  program  control  enters  the  main 
loop    which   scans,      parses,       and   generates   TI-59    code   for   one 
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W3ASIC  source  line.  At  the  end  of  line,  the  loop  checks  for 
end    cf      source    file.  As    long   as      the    end      of   file      is   not 

detected,  the  main  loop  repeats  its  processing  cf  each 
succeeding  line  cf  source  code.  When  end  of  file  is  found, 
control  €xits  the  main  loop  and  post-prccsssing  begins  on 
the  generated  TI-59  code.  This  includes  insertion  of 
suspended  code  data,  optimization,  address  resolution,  and 
final   output  of    code    and   associated    data. 

The  entire  cross-compilation  process  is  broken  down  into 
15  functional  areas.  These  are  outlined  by  the  contour 
diagram  in  Figure  4,1  Note  that  solid  lines  indicate  actual 
procedures  (P/)  or  functions  (F/) ,  while  dotted  lines  only 
indicate  logical  association.  Although  these  areas  often 
depend  upon  one  another,  the  particular  services  performed 
by  each  differ  enough  to  allow  independent  analysis.  Were 
it  not  for  limitations  imposed  by  the  Pascal  language,  many 
more  proc€dur9s  and  functions  would  have  been  tightly  pack- 
aged in  order  to  hide  ira-plementation  details  between 
functional   areas.  What    follows   is      a   survey  of      the    major 

functional   areas   of    EAX59   and    the   design    details    for    each. 

1 .      Initialization 

In  the  interest  of  execution  time  efficiency  all 
run-time  actions  which  required  completion  prior  to  xhe 
start  of  parsing  are  incorporated  into  procedure  INITIALIZE:. 
As  a  result,  some  variables  and  databases  which  would  other- 
wise have  been  local  to  their  respective  procedures, 
required      globalization.  One   particular      example      is      the 

reserved  word  table.  This  data  structure  is  built  of  data 
supplied  from  outside  the  program  in  file  RWTEL?.  Since  the 
reserved  words  contained  in  this  file  need  only  be  loaded 
once  (at  the  start  of  execution) ,  there  was  no  good  reason 
to  place  them  into  procedure  SCAN,  which  is  called  often  by 
parse    routines.         While    it    would    have    been    possible    to    use   a 
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tcolean  swixch  tc  deteci  the  initial  call  to  SCAN  and  subs-a- 
quently  generate  th3  reserved  word  table  at  this  first  call, 
this  would  have  increased  the  coupling  between  i^odules. 
Loading  the  reserved  word  table  from  outside  the  program 
offers  several  advantages.  First,  changes  to  the  reserved 
word  table  can  be  made  easily  (this  process  will  be 
discussed  when  the  scanner  is  considered).  Second,  th=  user 
can  check  one  file  (BWTBLF)  in  order  to  see  the  reserved 
words  rsccgnized  by  EAX59-  Third,  the  loading  routine  does 
not  need  tc  know  the  words  themselves,  only  the  name  and 
format   of   the   file    in   which    they    rsside. 

Built-in  functions  are  also  loaded  by  procedure 
INITIALIZE.  This  operation  actually  requires  two  ordered 
steps.  First,  the  symbol  table  must  be  created.  Second, 
function  recognition  and  generation  data  is  read  from 
outside      files     (BIFNCF      and'BIFNLF)  and      the   symbol      table 

management  routines  are  used  to  put  this  data  in  the  table. 
Loading  the  built-in  functions  by  using  the  same  routines 
which  the  parser  will  use  to  manage  the  symbol  table, 
ensures  table  consistency  and  orcmotes  readability.  This 
approach  has  bean  taken  as  often  as  possible  in  designing 
the    cross-compiler. 

The  complexity  of  the  above  initialization  processes 
as  well  as  the  the  TI-59  keycode  text  (CT3XTF)  loading 
process  required  that  these  operations  be  acstract-ed  into 
individual      subprograms.  However,         procedure      INITIALIZE 

performs  nany  other  pre-corapilation  activities  which  could 
be  performed  sequentially.  Probably  the  most  important  of 
these  activities  is  the  simple  initialization  of  variacle 
values.  The    importance      of      this    task      is      elevated    by      a 

sericus  hole  in  the  Pascal  VS  implementation.  The  Pascal  VS 
compiler  will  not  detect  the  failure  to  initialize  a  vari- 
able value  prior  to  its  use.  What  is  worse,  random  values 
which    exist    in    pointer   references      or    other    variable    storage 
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araas  will  b€  used  as  is,  whether  they  were  out.  there  by  the 
user  or  not.  As  a  result,  failure  to  initialize  values  vias 
a  major  source  of  error  during  development  of  3AX59.  These 
types  of  errors  tended  -^o  be  extremely  difficult  tc  debug, 
since  they  often  surfaced  late  and  usually  in  modules  long 
thought    tc    be   robust. 

In  s'lmraary,  procedure  INITIALIZE  loads  all  informa- 
tion which  will  C€  needed  by  the  translation  and  resolution 
stages,  constructs  conveniences  data  such  as  character  sets, 
assigns    starting    values   to    all    variables    and    pointers. 

2 .      Sea nner 

At  the  lowest  level  of  abstraction  within  the  trans- 
lation component  of  EAX59  is  the  scanner,  procedure  SCAN. 
This  single,  self-contained  subprogram  is  basically  designed 
on  three  important  concepts.  First,  the  scanner  is  itself  a 
finite  state  machine.  Second,  with  the  exception  of  proce- 
dure INITIALIZE  and  some  system  constants,  its 
implementation  is  transparent  to  the  rest  of  the  cross- 
compiler.  Third,  the  database  which  it  uses  for  token 
recognition    is    simple,    time    efficient,    and    general. 

The  state  machine  logic  of  procedure  SCAN  provides 
knowledge  of  token  streams  in  free  format  and  nothing  more. 
Its  primary  job  is  to  read  the  source  file  character  by 
character  in  order  tc  isolate  and  recognize  single  tokens. 
However,  procedure  SCAN  is  designed  to  do  much  more.  First, 
it  reads  and  converts  line  numbers.  It  also  fills  as  neces- 
sary the  line  buffer  and  accumulator,  the  data  structures 
which  store  the  line  and  token  currently  being  scanned 
respectively.         The    scanner    also    detects   the    end    of    a   source 


file    which      has    no    explicit      WBASIC    "END"      statement. 


This 


allows    d    more   graceful  conclusion   to    what    might    otherwise   be 
anabruptexit. 
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Two  ether  functions  performed  by  tha  scanr.'ar  rfill 
illustrate  its  transparsncy  to  -he  rest  of  the  cross- 
compiler.  These  are  recognition  of  the  end  of  a  line  dnd  of 
continuation  lines.  Procedure  SCAM  reads  and  loads  the  line 
tuffer  (LINEUP)  with  a  new  line  of  source  text  each  tiie  the 
end  of  line  character  ("i")  or  continuation  line  character 
("5")  is  fcund.  The  only  difference  is  that  the  end  of  line 
token  number  must  be  passed  up  to  the  parsing  routines  so 
that  the  main  loop  will  knew  when  it  has  parsed  one  entire 
line.  Cn  the  ether  hand,  the  continuation  character  can 
remain  invisible  to  the  parser,  wnich  views  only  whcle 
scarce   lines. 

As  mentioned  before,  the  database  used  by  procedure 
SCAN  is  the  reserved  wcrd  table.  Although  referred  to  as  a 
table,  the  internal  representation  of  this  database  is  actu- 
ally three  coordinated  arrays  constructed  frcm  the  3V(TBLF 
file    ty      procedure    INITIALIZE.  These   arrays      are    used     to 

compare  the  characters  of  a  token  in  the  accuniulatcr  to  the 
characters  cf  reserved  wcrds.  The  simplicity  and  efficiency 
of  this  comparison  is  illustrated  in  Figure  U.2,  which 
depicts  a  condensed  schematic  of  the  arrays.  Note  that  the 
characters  in  the  HWCHAR  array  are  arranged  in  order  of 
increasing    word    length.  A   reserved    word    look      up    is    based 

upon  the  length  cf  the  wcrd  in  the  accumulator.  Comparison 
begins  at  the  first  character  cf  the  first  word  in  th^ 
RWCHAH  array  which  matches  the  length  of  the  token  in  the 
accumulator.  Comparison  ends  when  either  all  characters  in 
the  accurrulator  match  a  string  in  the  RWCHAR  array,  or  when 
the  characters  cf  all  words  of  a  given  length  have  been 
compared   to    the    accunulator    without    success. 

The  HWHOBD  array  references  the  start  index  cf  each 
word  in  the  RWCHAR  array,  while  the  RWLENG  array  references 
the  start  index  for  the  first  word  in  the  RWWORD  array  for 
that    length    index.       The    indexes   of  the    RWWORD   array    are   used 
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as  the  token  numbers  returned  by  the  scanner  after  a 
successful  look  up.  Should  a  lock  up  operation  fail  to 
recognize  the  accumulator  token,  then  rhe  token  is  assumed 
to  be  a  variable  identifier.  Other  token  types,  such  as 
numerics,  are  recognized  prior  to  -cable  look  up.  This  irech- 
anism  and  the  fact  that  xhe  scanner  is  independent  from  the 
parser      require      thax     WBASIC      keywords      be      reserved.  If 

keywords  vere  overloaded  as  variable  identifiers,  -he  parser 
would  have  to  communicate  its  token  type  expectaticn  to  the 
scanner.  Token         overloading  would        greatly        hamper 

readability. 

Cne  scanner  related  problem  which  required  a  rela- 
tively ccmplex  solution  concerned  the  conversion  of  WEASIC 
to  TI-59  numeric  values.  The  calculator  display  window 
restricts  the  number  of  significant  figures  which  can  be 
entered  from  the  keyboard.  Fcr  numbers  without  exponents,  a 
maximum  of  ten  digits  (with  decimal  point)  can  be  entered. 
Numbers  with  exponents  are  allowed  a  maximum  of  eight  digits 
in   the    mantissa      and   two    in    the   exponent.  Because    of   this 

restriction,  a  rather  complicated  procedure  was  designed  to 
convert  WBASIC  numeric  values  to  TI-59  compatible  values 
without      losing      equivalence.  Procedure      ADJUST      performs 

decimal  point  shifting  and  exponent  modification  on  WEASIC 
numerics  which  contain  too  many  significant  figures  for  the 
TI-59.  The  operation  can,  of  course,  reduce  significance  by 
truncation      of    excess     digits.  Except      for   this      loss     of 

digits,    equivalence    is  maintained. 

^  •      lIISI  Handling 

At  this  point  it  is  appropriate  to  discuss  error 
recognition  and  recovery.  As  implied  earlier,  the  error 
detection  capability  in  3AX59  is  relatively  weak  and  incom- 
plete as  compared  to  full  language  compilers.  The  reason  is 
that      the      system   requirements      specified      error-free      input 
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source    files.  The    primary      use   for      this   system      is    as      a 

supplement  to  an  existing  BASIC  language  interpreter  or 
compiler.  Debugging  cf  TI-59  programs  is  a  hard  enough  taslc 
without  adding  the  ccmplexity  imposed  by  absence  cf  EASIC 
language  run-time  diagnostics.  Therefore,  users  cf  EAX59 
are  strcngly  advised  tc  ensure  that  a  WBASIC  program  is 
correct  syntactically,  semant ically,  ana  logically  by 
running  it  in  the  WBASIC  environment,  before  translation  to 
TI-59  code.  Error  handling  in  BAX59  is  restricted  to  detec- 
tion of  subset  related  exceptions,  calculator  capacity 
limits,    and   errors    of   cppcrtunity. 

The  cross-compiler  is  designed  for  recognition  of 
two      major      types      of   errors:  fatal      errors     and      warning 

messages.  Fatal  errors  are  further  categorized  as  scanner 
or   parser   detected. 

Warning  messages  are  generally  unrelated  to  WEASIC 
syntactic   or      semantic  problems.  They    refer      to    potential 

difficulties  with  the  TI-59  run-time  environment,  most 
commcnly  (but  not  always)  calculator  capacity.  Such  condi- 
tions as  toe  many  registers  in  use,  too  many  labels  in  use, 
or  excessively  nested  subroutine  calls,  will  trigger  warn- 
ings. Each  message  is  explicit  and  cautions  the  user  of  a 
situation  which  is  considered  abnormal  to  the  calculator. 
Since  these  errors  are  unrelated  to  the  WBAS-IC  scurce  code, 
warning  messages  do  net  halt  the  parsing  or  code  generation 
processes.  However,  TI-59  code  generated  from  a  WEASIC 
source  file  that  produced  warnings  is  not  guaranteed  to 
execute    properly,    if    at    all. 

The  warning  message  is  similar  tc  non-fatal  errors 
in  full  language  compilers.  The  reason  for  continuation  of 
code  generation  is  slightly  different.  A  user  of  3AX59  will 
most  likely  need  to  modify  and  tailor  his  WBASIC  program  to 
fit  calculator  constraints  and  capacities.  Warnings  are  a 
non-fatal   means    cf      providing   near  equivalent   code      data    for 
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use  in  cciparison  of  ef ficiancies,  capacities,  or  consis- 
tency. Ever,  though  the  code  may  not  successfully  execute  on 
the  calculator,  it  still  represent.s  a  direcn  translation 
from  WEASIC  and  is  a  fairly  accurate  indication  of  program 
size,    regisxer/label    use,    etc. 

Unlike  a  warning,  one  fatal  error  will  flag  the  main 
loop  against  further  parsing  and  code  genera-ion.  However, 
scanning  for  tokens  continues  until  nhe  end  of  rhe  source 
file  is  reached.  Thus,  only  a  single  fatal  syntax  error  can 
ever  be  detected  in  one  BAX59  execution,  although  the 
scanner  will  continue  to  detect  any  number  of  lexical 
errors.  Fatal  errors  are  also  categorized  as  subset  or 
non-subset  related.  Non-subset  errors  are  those  previously 
referred  to  as  errors  of  opportunity.  During  the  coding 
phase  of  development,  simple  syntax  checks  were  often 
inserted  into  the  logic  of  the  parsing  routines.  These  were 
usually  cne-line  IF-THEN-ELSE  constructs  which  cost  very 
little    but    were    highly   protective.  For    example,      the    main 

loop  calls  procedure  PGOTC  whenever  the  GOTO  command  is 
recognized.  Since  error-free  input  is  required,  this  proce- 
dure could  have  been  written  to  assume  that  the  next  token 
must  te  a  numeric  line  reference.  Instead,  it  was  a  simple 
matter  to  check  the  next  token's  type  and  call  a  syntax 
error  (FEERCE)  if  it  were  not  numeric.  Note,  however,  *hat 
the  logic  of  PGOTO  will  not  call  an  error  for  a  numeric 
token  which  contains  a  fractional  part,  clearly  a  syntax 
error.  In  fact,  the  cross-compiler  is  not  likely  to  detect 
an  error  at  all.  Execution  may  result  in  a  Pascal  VS  run- 
time error.  The  reason  is  that  the  numeric  string  will  be 
converted  to  an  integer  value  based  on  ordinal  values  of  the 
characters.  The  decimal  point  will  appear  to  BAX59  as  any 
other  character.  However,  its  ordinal  value  will  be  added 
during  conversion  resulting  in  an  inconsistent  integer  value 
for      the    line      reference.  The    routine      used      to    set      jump 
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pointers  will  probably  not  be  abla  to  find  the  lin^  nuafcer 
since    it    is   already    in  error. 

Although  oftsn  incomplete,  these  error  traps 
provided  much  assistance  in  tracking  sysxem  bugs.  The  tech- 
nique used  was  zo  translate  simple  source  programs  known  to 
be  correct.  Srrcrs,  tripped  at  these  check  points  by  system 
bugs,         usually    indicated      the    likely      trouble   spots.  The 

faulty  routine  had  helped  in  parsing  either  the  statement 
which  caused  the  error  or  the  statement  which  immediately 
preceded  it.  Since  the  token  which  tripped  the  error  was 
also  known,  the  exact  routine  and  the  specific  bug  were 
easily    fcund. 

Subset  related  errors  were  defined  in  the  software 
requirements.  The  user  must  be  told  where  and  how  he  has 
misused  the  system.  BAX59  incorporates  all  W3ASIC  keywords 
(Version    2.0)      in      its  reserved    word    table.  The    main   loop 

logic  contains  the  information  to  distinguish  between  imple- 
mented keywords  and  unimple mented  keywords.  This  technique 
allows  the  reserved  word  table  and  implemented  subset  -^o  be 
easily  expanded  (or  contracted).  Such  a  technique  strongly 
supports   the  requirement    for   maintainaole   source    code. 

There  is  more  room  for  improvement  in  the  area  of 
error  detection  and  handling  than  in  any  other  aspect  of  the 
cross-compiler.  The  capability  could  certainly  be  extended 
to  protect  against  all  possible  syntactic  and  semantic 
errors  sc  that  prior  compilation  or  interpretation  would  be 
unnecessary.  However,  the  benefits  to  be  gained  are  ques- 
tionable, since  run-time  and  logical  debugging  of  TI-59 
programs  is  no  easy  task.  A  special  file  to  hold  error 
message  text  might  help  to  reduce  some  of  the  awkwardness  in 
portions  of  the  code  which  issue  these  messages.  within 
this  file  the  messages  could  be  indexed  by  number,  thereby 
allowing  mere  verbose  and  possibly  clearer  explanations  of 
errors.  Generally  speaking,  the  critical  resource  of  time 
forced   the    design   of    error    handling    to    be    barely    adequa-^.e. 
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4  .      iU  tcl    T abl_e    i!*anaqa  ment 

Cne  of  the  mere  important  du-ies  of  -che  parser  is  to 
manage  the  symbol  tatle.  The  BAX59  symbol  table  is  a  vari- 
able tucket  hash  table  similar  to  one  described  by  Aho  and 
Oilman  [Eef.  6].  The   data   structure      used   is    an      array  of 

pointers.  The  indices  to  this  array  of  base  pointers  are 
hash  values  computed  by  talcing  the  modulo  99  sum  of  the 
ordinal  values  of  identifier  characters.  This  operation  is 
perfcrmed  ty  procedure  HASHVAL.  Figure  4.3  depicts  the 
structure  of  the  -cable  itself  and  its  fcur  types  of  identi- 
fier entries.  Three  of  the  four  types  of  identifiers  are 
functions.  These  will  be  discussed  later  in  this  chapter. 
The  important  structural  feature  to  notice  now  is  -hat  each 
rode  has  a  SLOTP  field  regardless  of  variant  tag.  The  SLOT? 
field  is  each  entry's  link  in  the  variable  length  chain 
which  ferns  a  bucket.  In  order  to  insure  that  no  uninitial- 
ized pointer  references  or  variables  occur,  new  nodes  are 
created  as  needed  by  the  separate  function  GETSLOT.  The  job 
of  this  function  is  to  create  the  node  and  to  insure  that 
all  of  its  fields  have  been  initialized  to  default  values. 
This  same  approach  to  data  structure  construction  is  used 
throughout  BAX59  in  order  to  protect  against  random  initial- 
ization   by   the    Pascal   VS    compiler. 

The  look  uc  operation  of  procedure  IDLOCKU?  is 
simply  to  hash  the  characters  of  the  identifier  token  in  the 
accumulator  to  the  correct  base  pointer  bucket  in  the  symbol 
table.  The  IDENT  field  of  each  slot  node  is  compared  to  the 
accumulatcr  token  until  either  a  match  or  a  nil  pointer  is 
found.  If  a  match  is  found,  a  pointer  to  that  slot  is 
returned.  If  no  match  is  found,  then  a  slot  for  the  accumu- 
latcr identifier  token  is  automatically  added  to  the  symbol 
table  in  the  bucket  just  searched.  A  pointer  to  this  new 
slot      is    then      returned.         This      is    in      accordance    with      the 
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semantic  rules  of  xh€  BASIC  language  which  allows  isplici*: 
declaration    of    variable   nam  5S    by    using   them   ir.   snataminrs. 

The  insertion  of  new  iden-ifiers  into  the  syabol 
table    is      performed    by      procedure   ENTERID.  This    prccidure 

creates  the  new  slot,  fills  all  fields  which  are  known,  and 
links  the  slot  into  the  symbol  table.  It  is  also  during 
this  process  that  identifiers  are  assigned  TI-59  registers 
for    cede   generation    purposes.  Function    NEWREG    handles   the 

register  pool,  which  is  actually  nothing  more  than  an 
implicit  stack  of  integers.  An  important  feature  regarding 
the  assignment  of  registers  to  variable  names  is  that  the 
user  has  seme  control  over  these  assignments  from  outside 
the  program.  Included  in  the  LABEL?  file  is  a  place  to  list 
register  numbers  which  the  user  wants  to  reserve  for  his  own 
use.  Function   NEwaZG      will   not      assign      these   numbers     to 

WBASIC  variable  names.  The  significance  and  power  of  this 
contrel  feature  becooces  more  apparent  during  the  discussion 
of  functions.  The  user  is  cautioned  against  reserving  the 
last  assignable  register  number  (system  parameter  in 
constant      declaration     block:         REG3ASE) ,  Reserving      this 

register  will  shert  circuit  the  logic  which  reports  a  TI-59 
memory  overflow  warning  message,  the  situation  in  which  too 
many    registers    are    in   use. 

As  a  final  nete,  there  are  two  forms  of  output  which 
are    closely    associated      with   the    symbol    table.  One    is    the 

WBASIC  variable  name  to  TI-59  register  mapping  which  ccrre- 
iates  variables  to  register  assignments.  The  other  is  an 
optionally  available  symbol  table  image,  which  lists  each 
table  entry  in  bucket  order  with  type  and  register  assign- 
ment. Both  outputs  are  discussed  in  the  last  section  of 
this    chapter. 
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5  •      I^Iiissi ens 

Ihe  niost  fundamental  and  mos-  common  construct  seen 
by  the  pars=  routines  is  the  arithmetic  expression.  The 
many  similarities  between  EA3IC  language  expressions  and 
TI-59  expressions  make  them  relatively  easy  to  parse  and 
generate.  However,  a  few  subtle  differences  cause  abnormal 
situations  requiring  careful  dasign.  If  there  is  one  lesson 
to    learr.      from    this    discussion,        it    is    this:  in    compiler 

design,      when   in   doatt  revert      to   the    grammar   specification. 


TABLE    I 
Production   Rules   for  Expressions 

<EXPRESSION>     ::=     <PRI.^ARY>     {<3IHAHY0?>    <PRIMARY>} 


<PFIMAEY>     ::=     {+|-}    <?RIMARY> 

<UNSIGNED    NUMBER>    I 

<IDENTIFIER>  ] 


ED    NUMBER> 
FIER> 
(    <EXPRESSION>    ) 


Table  I  lists  the  grammatical  spacif icat ion  for  a  SEASIC 
expression.  The      two      production   rules      in     Table      I      are 

abstracted  by  the  two  BAX59  parse  procedures  PEXPR  and 
PPRIMARY.  They  are  designed  to  parse  and  generate  code 
through  mutual  recursion.  Careful  examination  of  the  case 
statements  within  these  prcedures  will  reveal  the  differ- 
ences between  WBASIC  and  TI-59  expressions.  While  both  use 
infix  notation  for  binary  operators,  unlike  WBASIC,  TI-59 
unary  operators  and  function  applications  are  postfix.  This 
minor  twist  in  notation  adds  a  little  complexity  to  the 
logic   of     the   expression   parsing   routines.  However,      once 

designed,    the  code    for  translation  of   expressions   became  the 
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fundajnental  base  apcn  which  assignment  state[nan'::£,  condi- 
tional expressions,  functions,  and  many  other  ccnxructs 
could    be    built. 

6  •      Cn structured    Jumps 

Sc!ne  of  the  easiest  constructs  to  understand  and 
implement  were  the  unstructured  control  statements  GOTC  and 
GOSUE.  To  realize  their  simplicity  it  is  necessary  at  this 
point  tc  introduce  the  code  data  structure  which  is 
constructed    by    the    generation   routines. 

Illustrated  by  Figure  4.4,  the  code  data  structure 
is,  perhaps,  the  most  unique  design  concept  of  this  cross- 
compiler.  There  are  two  types  of  nodes:  WBA3IC  lin«  number 
nodes      and        TI-59      keyccde         nodes.  Since        unstructured 

constructs  in  WBASIC  are  dependent  upon  source  line  numbers, 
there  had  tc  be  a  method  of  associating  the  TI-59  cede  with 
those  same  line  numbers.  Figure  4.4  shows  how  line  nodes 
and  cede  nodes  are  linlced  to  duplicate  this  association.  It 
is  important  to  note  that  the  TI-59  code  chain  is  completely 
independent  (and  may  be  traversed  as  such)  of  the  WEASIC 
line  number  chain.  The  line  nodes  merely  provide  a  frame  of 
reference   for  the   TI-59   code. 

Procedure  SETLINE,  called  at  the  beginning  of  the 
main  driving  loop,  is  responsible  for  insuring  that  new  line 
nodes  are  created  and  inserted  into  proper  order.  As  each 
line  is  parsed,  special  holding  pointers  (FIRSTLP,  LASTLP, 
EEGINCF,  ENCCP,  LPLEAE,  LPTHAIL,  LPCUR,  CPCUR)  keep  track  cf 
all  key  locations  in  the  structure.  As  Figure  4.4  indi- 
cates, it  is  possible  to  have  line  nodes  created  and  linked 
prior  to  their  encounter  in  the  source  code.  This  occurs 
whenever  a  fcrward  jump  (GOTO)  is  parsed.  Since  the  line 
reference  of  a  forward  jump  has  not  been  parsed,  its  line 
node  would  not  exist.  However,  the  jump  pointer  (JMPP)  must 
be   anchored   to      a   node.        So   the   line    node      and   an    anchoring 
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coda  ncde  aie  inserted  in  correct  order  ahead  of  the  curr^n- 
line.  Erocedure  SETJMPZXT  sets  forward  as  well  as  backward 
jump  r^f erer.ces .  Cf  course,  setting  backward  jumps  is 
easier  because  the  line  number  node  has  already  been  created 
and  is  ir.  place.  It  should  be  noted  that  procedure  SETLIHt? 
always  checks  ±zs  forward  line  number  chain  before  creating 
a  new  lire  node.  If  a  line  node  exists  whose  line  number 
field  (LINO)  is  equal  to  the  next  «BASIC  line  number,  then 
it    will    be   used    instead. 

The  technique  for  handling  G0SU3  statements  is 
similar  to  tuz  slightly  more  involved  than  the  GOTO.  Since 
the  GCSUE  is  actually  an  unstructured  subroutine  call,  it 
was  necessary  to  maintain  consistency  in  code  generation  so 
that  the  linker  cculd  recognize  the  difference  between 
subroutines  and  unconditional  jumps.  All  TI-59  subroutines 
are  prefaced  with  and  called  by  a  label  name.  Therefore, 
while  initially  the  GCSUB  can  be  treated  as  a  G0?0,  at  seme 
time  later  a  label  must  be  inserted  at  the  head  of  the 
subroutine  body,  which  is  the  ncde  referenced  by  the  jump 
pointer.  This  is  done  during  the  resolution  phase  cf  compi- 
lation by  procedure  FIND GOSUBLBL.  This  fairly  tricky 
insertion  is  one  reason  for  tha  existence  of  the  back 
pointer  field  (BAKP)  in  code  nodes.  This  operation  will  be 
explored    in    the    sub-section    on   resolution. 

"^  •      I c c p in q    and    E ranching 

Users  of  BAX59  are  strongly  urged  to  practice  struc- 
tured programming  when  writing  WBASIC  code.  Translation  to 
and  execution  on  the  TI-59  are  far  more  regular  and  predic- 
table when  the  input  source  code  is  structured  and  readable. 
Much  of  the  design  of  the  entire  system  is  based  upon  the 
assumption  that  the  source  program  will  be  structured.  You 
will  understand  why  more  thoroughly  in  the  section 
describing   linker  design. 
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Ws  begin  discussion  of  structured  loopi-ng  and 
branching  by  introducing  procedure  PCONDITION.  This  proce- 
dure is  f undam^sntal  to  the  parsing  and  code  gsnsraticn  for 
simple  fccolean  expressions  (compound  boola^n  expressions 
have  not  been  implemenred) .  While  WBASIC  has  a  fairly 
common  set  of  boolean  operaxors,  the  TI-59  does  not.  There 
was  a  need  to  construct  efficien-  sequences  of  TI-59  code 
which  are  equivalent  to  -he  WBASIC  boolean  operators.  These 
equivalences,         shown     in      Table      II,         are      implemen-ed     in 


TABLE    II 

TI-59  Keycode    Sequences   Equivalent    ro    Boolean 

Operators 

A    =    B  AOB  A>=3  A<=3  A>3  A<E 


RCL    A 

RCL    A 

X->T 

X->T 

RCI    E 

RCL     E 

INV 

X=T 

X  =  T 

RCL    A 
X->T 

RCL    3 
X->T 
INV 
X>=T 


RCL    A 

RCL    A 

RCL    A 

x->r 

X->T 

X->T 

RCL    3 

RCL    3 

RCL    E 

INV 

X>=T 

X->T 

X>=T 

X>  =  T 

procedure  FCCNDIIION.  While  it  would  have  been  possible  to 
implenent  ccmpour.d  bcolean  expressions  (AND  and  OR)  ,  the 
lack  of  time  and  the  fact  -chat  their  logic  could  be  dupli- 
cated using  IF  statements  prevented  this  enhancement.  It 
was,  however,  a  very  simple  extension  of  logic  to  reccgnize 
and    translate  a    negation    (NOT)  . 

In  the  i  nplementation  of  a  block  structur!=fd  language 
which  allows  nesting,  the  use  of  stacks  is  an  important 
technique.  And  so  it  was  with  looping  in  BAX59.  By  nature 
loops    involve   backward   jumps.  As    with    unstructured    jumps, 

there   existed  a    need    to   anchor      pointers   on  code    nodes    whose 
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source  cede  had  yet  tc  be  translated.  In  the  case  cf  Icccs, 
the  inverse  of  this  concept  is  also  true.  There  was  a  need 
to  create  pcinters  from  code  nodes  whose  source  code  had  yet 
to  be  translated.  Since  structured  nesting  of  loops  is 
checked  by  the  WEASIC  interpreter,  it  was  possible  to  pre- 
create  these  nodes  and  push  them  onto  a  stack  until  their 
place  of  insertion  is  encountered.  This  is  exactly  how 
loops  are  translated  using  LOOPSTACK  and  ENDLOOPSI ACK.  When 
the  LCOP  statement  is  encountered,  a  NOP  keycode  node  is 
created  and  pushed  crto  the  ENDLOOPSIACK.  In  the  case  of 
the  WHILE  statement,  a  boolean  expression  is  processed,  a 
forward  reference  node  is  created,  a  jump  pointer  is  set  to 
the  node  (for  the  false  branch  to  end  of  loop) ,  and  this 
node    is      pushed    onto      the   LOOPSTACK.  When    the      ENDLOOP   or 

UNTIL  is  found,  the  stacks  are  popped  and  the  NOP  nodes  are 
insertad.  The  nature  of  correct  nesting  guarantees  that  NO? 
code  ncdes  popped  from  the  stack  will  have  jump  pointers 
referencing  or  will  be  referenced  by  the  appropriate  cede 
no  d  e  s . 

Iterative   loops     are   written      by   using     the    EOR-NEXT 
construct.  The   stack     implementation   is      similar   to      that 

described  above.  The  main  difference  is  in  the  additional 
calculator  resources  required  for  such  a  loop.  Unlike  ordi- 
nary variable  names,  the  FOR  loop  variable  requires  from  two 
to      three    register      assignments.  The      fields    AUXREG1      and 

AUXREG2  in  the  VARIE  tagged  slot  record  are  used  for  this 
purpose.  AUXRSG1  holds  the  TI-59  register  number  which  will 
store  the  upper  (lower)  limit  of  the  FOR  index  variable. 
The  FCR  index  variable  increment  will  always  default  to  +1 
unless  the  STEP  option  is  used.  If  STEP  is  used,  then 
AUXREG2  will  hold  the  register  number  which  stores  the 
increment  value.  The  user  should  understand  that  use  of  a 
FOR  Iccp  carries  a  fairly  heavy  overhead  in  terms  of  both 
register      and      program      step      use.  A      single      simple      FOR 
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statement  in  WBASIC  zranslatss  zo  use  of  two  registers  and 
ever  20  program  steps.  Most  of  -his  overhead  is  caused  by 
the  run-time  checking  of  the  FOR  index  variable  value 
against    its    limit   for  each    iteration    through   the    loop. 

Branching  is  another  construct  implemented  with 
stacks.  There  are  actually  two  forms  of  branching:  the 
unstructured  or  line-oriented  IF  statsment  and  the  block 
structured  IF  statement.  The  unstructured  I?  is  actually 
only  partially  i nplement ed.  W3ASIC  allows  either  a  jump  to 
a  line  number  or  execution  of  any  single  statement  within 
each    of   the    I?    branches.         Because     the    structured    IF   can   be 


written   to    perform    the  same    way^ 


was    decided   to    restrict 


the  unstructured  I?  to  allow  line  jumps  or  the  QUIT  state- 
ment. The  implementation  of  line-oriented  jumps  has  already 
been    discussed.  An  IF -THEN-QUIT      or    IF-THEN-ELSE-QUIT      is 

handled  by  setting  a  jump  pcintar  to  the  ENDLOOPSTACK.  The 
effect  is  tc  force  program  control  to  exit  the  current  locp. 
If  ccntrcl  is  not  within  a  loop  (i.e.  ENDLOOPSTACK  is  nil), 
then      an    error      condition      is   raised.  FOR      loops   are      not 

considered    loops  in    this   context. 

The  more  powerful  of  the  two  IF  statements  is  the 
block  structured  IF-ELSEIF- ELSE-ENDIF.  This  form  disallows 
the  use  of  keyword  THEN,  since  it  is  implied.  Once  again, 
stacks  are  used  to  inflement  the  structured  IF.  The  logic 
and  its  correspondence  to  the  manipulation  of  stacks  is 
roughly  similar  to  that  of  looping.  Instead  of  directing 
jump  pointers  to  the  end  of  loops,  they  are  directed  tc  the 
next  ELSEIF  or  ELSE.  An  unusual  situation  occurs,  however, 
in  the  case  of  the  IF  statement.  Stack  manipulation  for  the 
IF-ENCIF  is  slightly  different  from  that  for  the 
IF-ELSE-ENDIF  or      the   IF-EL SEIF-ELSE-2NDIF .  To    understand 

the  prcblem,  assume  the  viewpoint  of  a  parser  which  has  just 
evaluated  the  condition  of  a  structured  IF.  At  this  point 
you      do      not      know       whether    or      not      an      ELSE/ELSEIF      or      an 
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immediate  ZNDIF  will  fellow  the  true  branch.  To  which  "tack 
will  the  jump  pointer  of  the  false  branch  be  set?  In  order 
to  cover  both  possibilities,  a  pointer  to  a  node  pushed  onto 
each  stack  is  required.  However,  there  is  only  on?  jump 
pointer  field  (JMPP)  for  the  code  node  which  represents  the 
jump  address  to  the  falsa  branch.  Our  solution  uses  the 
back  pointer  field  (EAKP)  to  refernce  a  node  in  the  IFSTACK, 
while  the  jump  pointer  field  (JJIPP)  references  a  node  in  the 
ENDIFSTACK.  Procedure  ELS EABJOST  performs  the  resetting  of 
pointers  required  when  an  2L3S/ELS2IF  is  encountered.  When 
the  ENDIF  is  encountered,  the  5AKP  is  tested  for  a  nil 
pointer.  A  nil  BAKE  at  the  top  of  the  ENDIFSTACK  indicates 
that  an  EISE/ELSEIF  has  been  seen.  This  is  because  proce- 
dure ELSEADJDST  is  the  only  routine  which  can  clear  the  BAKP 
reference    before  the    ENDIF    is    enccantared. 

The  causa  for  all  the  foregoing  complexity  is  the 
fact  that  IF-ENDIF  has  a  single  false  branch  which  must  be  a 
jump  past  the  ENDIF.  The  tail  of  the  true  branch  !ii<=rely 
falls        through        the        ENDIF.  On        the        other        hand, 

IF-ELSEIF-ELSE-ENDIF  can  have  several  false  branches,  only 
one  of  which  may  jump  to  the  ENDIF.  The  tails  of  the  all 
true  branches  must  be  jumps  to  the  ENDIF.  The  logic  of 
BAX59  is  designed  to  recognize  and  generate  equivalent  TI-59 
code    for    any  of    these   possibilites. 

8 .       Functions 

The  most  powerful  feature  of  the  BAX59  cross- 
compiler  is  the  translation  of  functions.  Both  built-in  and 
user-defined  functions  are  handled.  In  order  to  take  full 
advantage  of  the  calculator's  capabilities,  it  was  necessary 
to  design  three  distinctly  different  types  of  functions. 
The  first  type,  referred  to  as  "quick"  functions,  are  the 
common  arithmetic/tr ignomet ric  functions  such  as  LOG,  SIN, 
COS.      The   second   type  of    function   harnesses   the    power   of   the 
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Solid      Stat€  Sof-tware     module 


These      are      referred    to 


"long"      functions.  Both      of   these      first      two      types      are 

built-in  functions.  The  third  type  is  user-defined  '•param- 
erer"  functicns,  which  are  transla-ed  from  «EASIC  source 
code   specifications. 

The  difference  between  "quick"  and  "long"  functions 
is  basically  the  number  of  TI-59  program  steps  generated  for 
each.  "Quick"  functions  generally  translate  to  a  one  or  two 
step  TI-59  keycode  sequence,  Howevar,  they  may  have  as  many 
as  four  steps.  Because  they  are  short,  "quick"  functions 
are  inserted  as  in-line  macros.  On  the  other  hand,  "long" 
functions  may  translate  -c  as  many  as  15  steps.  Therefore, 
their  length  requires  that  they  be  called  as  subroutines 
rather   than    translated  in-line. 

Head  from  the  BIFNQF  and  BIFNLF  files  respectively, 
the  cede  fcr  both  "quick"  and  "long"  functions  is  entered 
into    the      symbol   table      during    initialization.  BIFNQ?   and 

BIFNLF  may  be  revised  by  the  user  from  outside  the  cross- 
compiler.  By  knowing  the  TI-"59  kay  stroke  sequence,  a  user 
may  add  his  cwn  functions  to  either  file.  As  a  special  user 
note,  the  format  for  additions  to  these  files  is  critical. 
The  number  of  ksy  strokes  in  a  function  sequence  xay  not 
exceed  the  maximum  limit  for  the  type  of  function.  If  less 
than  that  limit,  then  the  end  of  the  sequence  must  be  padded 
with  NOP  (68)  key  strokes  to  the  maximum  limit.  These 
limits  may  be  altered  by  adjusting  the  system  parameters 
FNQLEN  and  FNLLEN  in  the  constant  declaration  block  of  the 
EAX59   source  code. 

Kcst  all  functions  that  could  be  implemented  as 
"quick"  have  been  and  are  listed  in  the  BIFNQF  file. 
However,  only  the  RND(X)  (random  number  generator)  function 
has  been  implemented  as  "long."  To  illustrate  the  concept 
cf  "long"  function,  we  will  walk  through  the  design  of 
HND  (X) . 
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Suppose  you  desire  to  write  a  TI-59  program  which 
uses  a  random  number  generator.  You  might  write  your  own 
pseudo-randcm  number  generator  subroutine,  but  the  TI-59  has 
such  a  routine  built  inxo  its  read-only  Solid  State  Software 
module.  Cse  of  this  built-in  facility  would  clearly  be  more 
space  efficient.  WEASIC  also  has  such  a  function,  RND(X). 
If  it  had  net,  it  would  be  possible  -co  write  one  in  WEASIC 
using  the  DEF  FN__RND  (X)  statement.  Before  translation  it 
would  be  necessary  to  remove  the  func-ion  definition  block 
and  replace  the  FN_RND(X)  calls  with  RUD(X).  However,  this 
is  not  required  in  cur  example.  You  must  ensure  that  the 
TI-59  registers  used  by  the  Solid  State  Software  module  to 
run  the  RND(X)  function  are  reserved  in  the  LA5ZIF  file. 
This  information  can  be  found  in  the  Master  Library  Manual 
[Ref.  7],  which  is  the  Master  Solid  State  Software  module 
reference  guide.  RND(X)  uses  registers  01,  02,  03,  Oa,  05, 
06,  and  09.  "Long"  functions  always  take  a  single  parameter 
(even  if  it  is  a  dummy).  Register  number  10  has  been  desig- 
nated to  store  this  parameter  and  should  also  appear  on  the 
reserved    list.  This   parameter   register    assig-nment      may   be 

changed  in  system  parameters  of  the  BAX59  source  code  if 
desired.  Each  time  it  is  encountered  within  the  W'EASIC 
source  program,  PND(X)  will  translate  as  a  call  to  a  subrou- 
tine whose  single  parameter  is  stored  in  register  10.  The 
first  tiie  seen,  the  END  symbol  table  node  will  be  linked  to 
a  special  list  (FNLLIST).  At  the  conclusion  of  code  genera- 
tion, FNLLIST  will  be  traversed  and  the  key  sequence  which 
executes  ENE(X)  as  well  as  any  other  "long"  functions  on  the 
list,  will  be  added  to  the  code  data  structure  as  subroutine 
bodies. 

The  real  power  of  this  facility  lies  in  its  user- 
controlled  flexibility.  The  user  may  convert  almost  any 
program  function  in  the  Solid  State  Software  module  into  a 
single   parameter   "long"    function.      All   he   must   do    is  reserve 
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tha  ccrr€ct  registers  in  the  LABELF  file,  list  th-  key 
sequence  in  the  BIFNLF  file,  and,  if  necessary,  fix  the 
values  cf  all  but  one  of  the  function  input  paramexers  (or 
create  a  dumny) .  If  the  function  does  not  exist  in  WBASIC, 
then  he  niust  write  the  DEF  block  for  it.  in  order  to  check 
program   correctness    prior   to   translation. 

Having  strayed  frcm  i-nplementation  design  toward 
system  utility,  we  new  return  to  implementation  discussion 
cf  so-called  "parameter"  functions.  The  name  given  these 
user-defined  functions  applies  mere  to  how  they  are  imple- 
mented rather  than  to  their  nature.  The  parsing  routines 
always  expect  parameters  but  do  not  require  them. 
Parameterless  functions   are,    indeed,    recognized. 

Although  the  cross-compiler  will  correctly  translate 
a  function  definition  (DEF  statement  or  block)  whether  it 
occurs  befcre  or  after  its  respective  call,  the  linker 
requires  that  all  subroutine/function  bodies  be  placed  after 
the    main    program. 

When  a  new  function  identifier  is  recognized  (by  the 
"FN_"  prefix),  a  new  FNPIC  tagged  slot  is  created  for  the 
symbcl   table.  Procedure    GENPARM      is   then      called    upon      to 

parse  actual  parameter  expressions,  generate  code  which 
performs  their  run-time  evaluation,  and  construct  the  formal 
parameter  list.  Parameters,  if  found,  are  linked  in  order 
to  the  FNP  field  of  the  symbol  table  slot  for  the  function. 
While  registers  are  assigned  to  these  parameters,  the  corre- 
sponding formal  parameter  names  cannot  yet  be  entered  since 
they  are  not  known  until  the  function  DEF  statement  is 
found.  Note  that  formals  are  assumed  to  match  actual  param- 
eters by  both  order  and  quantity.  There  are  no  checks  in 
BAX59  to  insure  this  correctness.  Only  a  run  through  the 
WBASIC   interpreter    will   verify    parameter   correspondence. 
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When  the  furction  definition  is  found  in  th?  D2? 
statement,  a  process  similar  tc  parsing  the  call  takes 
place.  The  formal  parameter  names  are  now  inserted  into  the 
parameter  list  attached  to  the  function  slot  in  the  symbol 
table.  Eefore  the  function  body  is  processed,  the  slot  is 
pushed  onto  the  FNSTACK.  This  stack  simulates  an  activation 
record  stack.  Each  identifier  look  up  that  is  performed  by 
procedure  IDLOOKUP  requires  that  the  FNSTACK  be  examined  for 
active  functions.  If  a  formal  parameter  name  is  found  in  an 
active  function  parameter  list  which  matches  the  identifier 
being  sought,  then  its  register  assignment  is  used  for  cede 
generation.  As  a  result,  standard  rules  of  variable  visi- 
bility and  scoping  apply.  When  the  end  of  a  function  body 
(FNEND  statement)  is  exccunterel,  the  function  slot  is 
popped  from  the  FNSTACK  and  its  formal  parameters  are  no 
longer    visible    tc  the  run-time   environment. 

As  a  final  note,  the  user  should  know  that  "param- 
eter" function  names  receive  their  own  register  assignment. 
This  register  is  the  place  in  which  the  final  value  of  the 
function  is  returned.  This  register  is  zeroed  during  run- 
time just  frior  to  the  execution  of  the  function  call. 
However,  after  execution  the  value  in  this  register  persists 
until  the  next  call  en  the  function.  This  corresponds  tc  an 
identical   situation    in  the    WBASIC   run-time    environment. 

^  •      ^cde   Resolution 

If  the  physical  end  of  the  WBASIC  source  program  is 
reached,  or  if  a  WBASIC  END  statement  is  found,  parsing  is 
stopped,  the  bodies  for  any  "long"  functions  used  are  gener- 
ated, and  the  code  data  structure  is  closed  out  with  nil 
pointers.  At  this  point,  the  code  resolution  phase  of 
compilation   begins. 
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Th€  first  st€p  in  resclu-ion  is  to  locate  and  ir.ssrt 
labels  at  the  destinations  of  all  unstructured  subrou-ir.s 
(SBP.)  calls.  These,  of  course,  were  generated  by  GOS03 
szatements.  Since  GCSUB  is  a  line-oriented  jump,  then  there 
is  a  pointer  in  the  code  data  structure  referencing  the 
destination  of  that  jump.  Procedure  FINDGOSUBLBL  traverses 
the  cede  data  nodes  searching  for  SBR  keycodes  which  are 
followed  by  a  node  with  a  non-nil  jump  pointer  (JMPP)  .  A 
very  coniplicated  check  is  made  to  ensure  that  the  SBR  label 
has  net  already  been  inserted  by  an  identical  SBR  call.  If 
not,  then  the  back  pointer  (3AKP)  is  used  by  procedure 
PUTGCSUBLSL  to  assist  in  the  insertion  of  the  label  at  the 
jump    destination.  Once  the    insertion    has      been    completed, 

the  address  field  (ACBR)  of  the  JMPP  target  is  set  from  z?ro 
to  negative  one  and  the  jump  pointer  (JMPP)  is  set  to  nil. 
This  signifies  to  other  routines  that  this  jump  has  been 
resolved.  The  process  continues  until  the  end  of  tha  cede 
data    is   reached. 

The  next  step  in  resolution  is  to  perform  a  special 
brand  of  TI-59  "peephole"  optimization.  The  most  common 
forms  of  excBss  parentheses  pairs  are  removed.  Such  forms 
as  " (BCL  nn) "  and  "  {2.333E- ^2) "  will  nave  been  generated  as 
a  result  of  parsing  even  simple  assignment  statements  and 
expressions.  Since  the  parentheses  in  these  expressions  are 
unnecessary  and  use  up  valuable  program  steps,  they  are 
removed,  provided  they  are  not  referenced  by  a  jump  pointer. 
If  referenced  by  a  jump  pointer,  the  node's  address  field 
(ADDR)       value      will    be   0    instead      of    -1    or    -2.  Removal   of 

these    will   cause   dangling   jump    references. 

looping  and  branching  generate  many  place  holding 
NOP  keycodes.  These  are  also  an  unnecessary  use  of  program 
steps.  However,  remember  that  almost  all  of  these  were 
generated  to  anchor  or  project  jump  pointers.  Thus,  before 
removal    their   jump   pointers    must    be    reset.      Procedure   OSQNOP 
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passes  ever  the  coda  data  twice,  oaca  to  resst  all  jumps  tc 
and  from  NCP's,  and  the  second  to  locate  and  reir.cve  the 
NOP»s.  It  is  important  to  realize  that  there  is  a  distinc- 
tion between  a  useless  NOP  and  one  which  is  acting  as  a 
label  identifier  or  a  jump  address  place  holder.  Because 
the  TI-59  requires  that  particular  kaycodes  be  fcllowed  by 
labels,  register  numbers,  or  addresses  it  is  easy  to  check 
keyccde  usage.  This  information  is  actually  loaded  during 
initialization  into  the  UNIT  field  of  the  CODETEXT  record. 
It  is  an  integer  0. . 3  which  indicates  whether  the  TI-59  code 
node  is  a  one,  two,  three,  or  four  keystroke  instruction. 
This  information  is  used  to  pass  over  keycodes  which  are 
required    parts    of  a    larger    instruction. 

The  final  stage  of  resolution  is  to  convert  relative 
jump  (pointer  referenced)  addresses  into  absolute  (numer- 
ical) addresses.  This  must  be  the  last  step  because 
previous  cede  insertion/deletion  routines  constantly  change 
absolute    addresses.  At    this      point    no      code    insertion      or 

deletion    occurs.  Procedure   RSSOLVS_ADDR      passes   over      the 

code    data   twice.  The    first    pass   fills      the   address    fields 

(ADDR)  of  all  code  nodes  in  sequential  order  starting  at 
000.  Now  that  each  exact  absolute  address  is  known,  all 
jump  pointers  which  are  still  marking  address  space  and 
referencing    a      destination    node   can      be    resolved.  A   TI-59 

codad  address  consists  of  two  parts.  During  the  second  pass 
procedure  INSERT^JMP ADDR  is  called  at  non-nil  jump  pointers 
to  read  the  destination  address,  split  it  into  its  two 
integer  parts,  and  insert  the  parts  into  the  address  space 
nodes.  Cnce  all  jumps  have  been  resolved,  the  cede  data 
structure    is  ready    for  output    and  linking. 
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10.       Ir.put/Output 

In  this  subsection  we  discuss  twc  input/outpu*, 
related  issues:  I  mpiemanta -iiicn  of  I/O  constructs  ard  CrTICN 
messages  to  the  compiler.  The  limited  capabilities  of  the 
calculatci  required  that  file  handling  and  string  handling 
aspects      of    WBASIC      be      eliminated      from   our     subset.  For 

similar  reasons  the  I/O  constructs  which  could  be  translated 
from    WEASIC    required    restrictions. 

While  the  WEASIC  I/O  szatements  INPUT  and  FHINT 
normally  provide  for  file  management,  the  3AX59  iirplementa- 
tion  cannot.  The  cress-compiler  recognizes  PRINT  followed 
by  any  number  of  simple  expressions  separated  by  commas. 
Ihe  TI-5S  cede  generated  will  evaluate  these  expressions  and 
print  their  values  (to  either  the  display  register  or  the 
Texas      Instruments    PC-100      Printer   Cradle)  .  On    the      ether 

hand,  the  INPUT  statement  takes  any  number  of  variable  iden- 
tifiers separated  by  commas.  For  each  identifier  in  the 
INPUT  list,  the  TI-59  program  halts  execution,  displays  the 
register  assignment  for  that  identifier,  and  stores  the 
input    value    entered    by  the    user   in   the   register    assigned. 

Many  programs  require  the  reading  of  large  aincunts 
of  data,  often  at  the  start  of  execution.  In  this  situation 
the  INPUT  statement  tends  to  generate  an  excessive  amount  of 
program  step  overhead.  Unless  the  program  is  designed  to  be 
interactive,  this  overhead  unnecessarily  increases  TI-59 
program  size.  In  order  to  provide  a  more  space  efficient 
means  of  data  entry,  a  limited  translation  of  the  WEASIC 
CATA  and  HFAD  statements  was  designed.  In  some  sense,  these 
statements  provide  a  substitute  for  file  handling.  The  DATA 
statements  are  placed  at  the  beginning  of  the  WBASIC  source 
program.  Each  statement  may  be  followed  by  numeric  data 
items  separated  by  ccmmas.  The  total  number  of  data  items 
in      one      program    is      limited      to      the    number      of      unreserved 
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registers  available  in  the  calcula-or  (based  upon  the  system 
parameter  HEGBASE)  .  If  this  limit  is  exceeded,  a  warning 
message  will  be  issued.  R2AD  statements  -ake  variable  iden- 
tifiers and  may  be  written  with  the  DATA  statements, 
however,  the  numJoer  of  variables  input  to  HEAD  statements 
should  never  exceed  the  number  of  data  ite^as  provided  by 
DATA  statements.  This  condition  will  also  cause  a  warning 
message  and  further  CAT  A/READ  statements  will  be  ignored. 
The  parse  routines  irake  register  assignments  to  the  vari- 
ables in  the  READ  statements,  and  concurrently  build  a  list 
which  maps  the  data  items  to  their  respective  registers  and 
variable  raraes.  This  list  is  one  form  cf  compiler  output. 
Using  th=  list  the  user  can  pre-load  TI-59  registers  with 
numeric  values  and  te  assured  that  they  will  be  in  corre- 
spondence with  the  translation  of  variable  names.  Mere 
importantly,  no  TI-59  program  steps  are  used  for  this 
initial  input.  In  fact,  the  data  could  be  read  froE  a 
magnetic    card   into    a    memory    bank   prior   to    execution. 

As  we  have  previously  implied,  there  are  many  forms 
cf  output  which  can  be  generated  by  the  cross-compiler. 
Additionally,  the  user  will  probably  have  to  do  some  debug- 
ging. We  have  chosen  tc  provide  a  primitive  set  of  tools 
and  options  which  can  be  toggled  on  or  off  from  outside  the 
BAX59  source  program.  The  toggles  are  set  or  reset  by  using 
the  OETICN  statement  in  the  WBASIC  program.  Caution!  Do 
not  confuse  this  statement,  which  is  unique  to  the  EAX59 
cross-compiler,  with  the  W3ASIC  OPTION  statement.  They  are 
not  the  same.  BAX59  does  not  recognize  WBASIC  OPTION  param- 
eters and  WEASIC  does  not  recognize  BAX59  OPTION  parameters. 
Table  III  lists  *he  possible  options  available  to  BAX59 
users.  To  toggle  the  options,  simply  include  an  OPTION 
statement  as  the  first  line  of  the  program  to  be  translated. 
Desired  parameter  settings  should  follow  the  OPTION  reserved 
word      separated    by      spaces.  Positive      parameters    set      the 
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TABLE    III 
BAX59    OPTION  Statement   Parameters 

Paratn 

■atei            Opticn 

Default 

±0 

Generate   linker   interface   fils 

false 

±1 

Generate  code   for    PC-100   orinter 

true 

±2 

GpTimize   out   unnecessary   parentheses 

true 

±3 

Optimize  out  unnecessary   loop's 

true 

±a 

Translated    TI-59  cede    to   list   file 

true 

±5 

Image    of   symtol   table    to   list    file 
Contents  of    cede  structura   to   list   file 

false 

±6 

false 

±7 

Each  lexical   token    to    terminal 

false 

±8 

Each  lexical  token    to    list    file 

false 

-      -  -,..     1 

toggle  true;  negative  parameters  reset  the  toggle  falsa.   In 
the  case  of  the  zero  parameter,  the  sign  has  no  effect. 

As  a  final  note,  an  OPTION  statement  may  net  be 
placed  in  the  WEASIC  source  program  until  it  is  ready  for 
translation.  Also,  placing  an  OPTION  statement  in  any  line 
but  the  first  may  produce  unpredictable  rssults. 

E.   LINXEB 

The  linker's  purpose  is  to  produce  a  segmented  version 
of  the  compiled  code  and  present  the  coda  in  a  format  that 
is  user  friendly.  The  informal  strategy  used  to  accomplish 
this  was  discussed  in  the  praliminary  design  phase  of 
Chapter  III.  The  detailed  design  that  supported  the  solu- 
tion strategy  called  for  the  linker  to  operate  sequentially 
through  three  major  phases.  In  Figure  U.5,  the  contour 
diagram  for  the  linker  is  presented.  The  preprocessor  phase 
of  the  linker  includes  actions  from  some  of  the  SYSTEM 
UTILITY      procedures      and      the      BLD^SEGIBL      procedure.  The 

remaining      two        procedures,        COALESCE        and     INSTRUCTIONS, 
accomplish      the      segmenting    and      postprocessing      activities. 
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LINKER 

1           SYSTEM  UTILITIES 
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t                              r«pr««ent  a  conceptual   grouotng  of  »y«t««  uttMty  prolans.                                      j 
,                              Aa  aucn,  no  actual   acopfng  Ifnaa  axfat  afiara  tha  caahad  Mrm                                   1 
1                            Una  occura. 
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BLD.SEGTBL 
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COALESCE 

( 

1 

!i 

INSTRUCTIONS 

i ' 

1! 

Fiaur£  1.5    Linker  Contour. 
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Each  cf  these  major  actions  wer3  described  in  the  preliai- 
nary  design  phase  in  Chapter  III.  The  detailed  design  of 
these  specific  operations  will  be  presented  in  -he  next 
sections.  Only  those  major  design  considerations  required 
for  understanding  the  operation  of  -he  major  operative 
phases   will    be    presented. 

**  •      Preprocessor 

As  was  mentioned  in  the  preliminary  design,  the 
primary  purpose  of  the  preprocessor  is  to  reproduce  the 
compiled  linked  code  list  and  generate  a  table  that  repre- 
sents   the    sequential    segments    of    the    compiled  cede. 

The  informal  strategy  called  for  a  two  step  opera- 
tion. In  the  first  step,  textual  integer  pairs  are  read 
from    an      input    file      into  a      data   record.  Each    record     is 

linked  tc  the  preceding  record  forming  a  linked  list  which 
reproduces  the  linked  list  of  code  generated  by  the 
compiler.  The  next  step  evaluates  the  linked  list  to  deter- 
mine where  the  sequential  segments  are  located.  Information 
concerning  each  sequential  segment  is  stored  in  another 
record  and  linked  to  the  preceding  sequential  segment 
record,  thus  forming  a  linked  list  cf  sequential  segment 
description  records.  Evaluation  for  sequential  segments 
would    occur      by    TI-59      labeled    subroutines.  Each    list      of 

sequential  segment  records  would  be  pointed  to  by  a  header 
record  which  contains  the  subroutine  name.  Each  of  these 
subroutine  name  header  records  would  be  linked  to  ether 
subroutine  name  header  records  in  the  same  order  in  which 
they    were   detected    in  the  generated  code. 

Two  data  structures  were  needed  tc  support  this 
strategy.  The  first  structure  comprises  a  linked  list  of 
records.  Each  record  contains  all  the  information  that  is 
contained  in  one  program  step  in  the  TI-59  calculator, 
including   the  address   of   the    instruction   and   the    instruction 


60 


integer  ccd-s.  Each  licord  is  linked  to  the  following  r-ccrd 
by  a  dynamic  pointer,  which  captures  the  sequential  nature 
of  th€  ccirpiled  coda.  Another  dynaaic  link  is  provid'='d  for 
those  records  containing  keycodes  that  may  cause  the  flew  of 
control   to      change    frcm   a      sequential   flow.  The    gen-rrated 

linked  list  of  records  is  a  complete  internal  representation 
of   the   ccmpiled    coda. 

A  second  data  structure  is  needed  to  represent  a 
sequential  segment  cf  code.  Vital  program  control  flow 
information  must  be  captured  by  the  structure  so  that 
segmentation  rules  may  be  applied  during  linker  processing. 
To  accomplish  this  a  sequential  segment  table  was  developed 
utilizing  a  record  fcrmat  to  describe  each  segment.  This 
table  record  holds  data  such  as  segment  start  address,  stop 
address,  whether  the  segment  is  covered  by  an  iterative 
backlcop,  a  list  of  forward  jumps  and  a  list  of  subroutine 
invocations  that  originate  within  the  segment.  Each  one  of 
these  records  is  linked  to  the  following  sequential 
segment's  record.  In  addition,  the  sequential  segment 
records  are  grouped  according  to  subroutine.  That  is  to 
say,  only  those  sequential  segments  residing  within  one 
TI-59  subroutine  definition  are  connected  together  in 
sequential   crder. 

The  linked  sequential  segments  are  tied  toaetber  by 
other  records  of  the  same  basic  type  but  different  variants. 
Each  subrcutine  grouping  of  sequential  segment  records  is 
pointed  to  by  a  linked  list  of  header  nodes.  These  nodes 
contain  the  name  of  the  subroutine  and  the  subroutine  defi- 
nition address.  Each  header  is  linked  to  another  subroutine 
header  in  the  same  crder  in  which  subroutine  definitions 
occur    within  the   generated    TI-59    code. 

Tc  capture  information  relating  to  forward  jumps,  a 
variant  of  the  sequential  segment  record  is  used  tc  build  a 
forward      jump  list.  This      list      contains   the      originating 
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address  cf  the  fcrwaid  jump  and  rhe  address  of  the  instruc- 
tion to  which  contrcl  is  transferred.  Because  the  ac-ual 
jump  address  is  used,  the  link  to  the  jump  location  is 
termed  relative.  Each  jump  node  is  dynamically  linked  to 
following  jump  nodes  to  form  a  jump  list.  This  list  is,  in 
turn,  dynamically  pointed  to  by  the  sequential  segment  in 
which  the    jumps    originate. 

To  capture  information  regarding  subroutine  invoca- 
tions, the  same  type  of  structures  is  used  as  for  the  jump 
node    lists.  The    only      difference   is      that    the      subroutine 

lists  point  to  the  invoked  subroutine  in  a  dynamic  manner. 
That  is  to  say,  that  a  dynamic  pointer  is  set  to  the  first 
sequential  segment  of  the  invoked  routine  in  the  sequential 
segment      table.  This      is    basically      the      only      difference 

between  the  subroutine  invoke  list  and  the  forward  jump 
list . 

Figure  4.6  is  the  contour  diagram  of  a  conceptual 
grouping  of  procedures  referred  to  as  the  SYSTEM  UTILITIBS 
group.  These  procedures  are  not  explicitly  grouped  together 
by  code;  rather,  the  grouping  is  to  facilitate  discussion 
and  understanding.  There  are  several  operations  within  this 
group   which    manipulate  the    data   objects. 

In  creating  the  linked  compiled  code  list  of  records 
two  separate  procedures  are  used.  The  first  procedure  is 
called  INPUT.  This  procedure  builds  the  initial  linked 
structure.  It  utilizes  an  input  file  containing  the  integer 
pairs  representing  TI-59  code  steps.  Essentially  it  creates 
one  record  for  each  pair  and  links  the  previous  record  to 
the  new  record.  The  only  thing  not  done  is  the  setting  of 
pointers   to   represent  an   indirection    in   the   flow    of    contrcl. 

This  is  the  job  of  the  procedure  SET_J:iPS.  In  this 
procedure,  the  major  activity  is  the  detection  in  the  actual 
keyccde  portion  of  the  compiled  code  of  an  instruction  that 
represents    a  possible   change    in      control    flow.         when   one   is 
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d=tsct<=d,  a  jump  pointer  (the  indir acxion  pointer)  is  se- 
cointing  to  -he  record  containing  the  nex-  TI-59  prcgram 
step    to    t€    executed. 

The  operations  which  creare  the  second  data  object 
are  a  little  more  ccniplicated  and  are  contained  in  Figure 
a. 7  The  action  of  building  the  sequential  segment  table 
data  structure  is  bicken  down  into  three  steps.  The  first 
step  begins  the  formation  of  the  table  while  the  second  step 
completes  segment  detection.  The  last  step  captures  ether 
information  and  ensures  that  internal  interfacing  requir=- 
ments   ar€    met. 

The  first  part  of  this  procedure  is  dcccmplished 
through  the  BLD_FRIMSEGTBL  procedure.  This  operation  passes 
over  the  compiled  codelist  structure  and  determines  where  a 
subroutine  starts,  stops,  or  issues  a  back  jump  command,  and 
locates  the  terminal  points  of  the  back  jump  commands.  Each 
of  these  points  is  called  a  critical  point.  When  detected, 
each  critical  point  is  inserted  in  the  segment  table  data 
structure  under  the  header  node  containing  the  TI-59  subrou- 
tine code  name  which  is  being  processed.  In  addition,  each 
of  the  juDDp  commands  with  their  initiation  and  termination 
points  are  inserted  into  the  structure.  This  completes  the 
first   major    step. 

The  second  operation  is  accomplished  through  the 
BLD_ACVSEGTEL  procedure.  In  this  procedure  the  initialized 
data  structure  is  fleshed  out.  Qp  to  now  only  critical 
points  have  been  inserted.  As  these  are  points  and  are  not 
double      ended,       segments      have   not      been   delineated.  This 

procedure  examines  the  segment  data  structure  and  adds 
points  to  delineate  where  a  segment  starts  and  ends.  It 
does  this  by  subtracting  one  from  the  pcint  following  it  and 
taking  this  to  be  its  end  point.  This  results  in  a  series 
of  records  which  are  all  covered  by  an  iterative  backloop, 
with    the    exception      cf   the    first    record.         This      is    noted   in 
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the  rsccrd.  N€Xt:,  th-5  procedure  examinis  the  irodified 
structure  and  d^teroiines  by  examining  -che  addresses  where 
there  are  holes  in  the  table.  Ihese  holes  correspond  to 
sequential  segments  that  are  not  covered  by  an  iterative 
backlccp.  These  records  are  then  inserted  into  the  struc- 
ture. Lastly,  adjacent  segments  that  are  covered  are  merged 
to  form  cne  record  representing  a  sequential  segment  that  is 
covered    by   the    largest  iterative   backloop. 

Ihe  segment  table  structure  is  completed  in  the  last 
procedure,  called  ELD_?IN SEGTBL.  In  this  operation  two 
primary  things  happer..  First,  FROCESS_SBRS  EGT3L  evaluates 
the  compiled  code  list  and  determines  where  forward  jumps 
and  subroutine  invocations  occur.  It  inserts  these  loca- 
tions into  the  proper  sequential  segment  that  covers  the 
area      where        the      call      or      invocation        occurs.  Second, 

SETT^IENGTH  checics  that  each  sequential  segment  does  not 
violate  the  memory  size  limit  of  the  calculator.  It  dees 
this  by  checking  each  sequential  segment  record  and  calcu- 
lating a  size.  If  the  size  is  too  great,  then  the  segment 
is  divided  in  half  and  a  new  segment  is  inserted  into  the 
table.  This  is  not  dene  for  segments  that  are  covered  by  an 
iterative  Icop  as  this  would  represent  a  break  of  an  itera- 
tive loop,  ether  actions  that  must  occur  include  readjusting 
forward  jump  lists  and  subroutine  invocation  lists  if  a 
division  does  occur.  One  interesting  point  worth  noting  Ls 
that  when  the  length  check  is  made  additional  steps  must  be 
allocated  to  the  actual  length  to  compensate  for  the  possi- 
bility of  prompting  cede  being  added  for  an  invocation  to  a 
subroutine  that  does  not  currently  reside  in  memory.  This 
is   the   purpose    of  L_ECSSBRK    in   Figure   4.7. 

The  data  structure  operational  procedures  access  the 
data  structures  through  pointers  which  point  to  the  struc- 
tures. The  pointer  to  the  compiled  code  list  is  referred  to 
as    3UILT_CCDE.         The    pointer   to   the   sequential   segment    table 
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structure  is  called  SEGTBL.  These  arc  the  only  data  which 
are  passed  among  procedures.  One  point  to  remember  is  that 
SEGTBL  pcints  to  the  header  node  list  containing  the  names 
of  the  subroutines.  The  actual  sequential  segment  lists 
reside    underneath  the   header   nodes. 

Since  understanding  the  data  structure  and  its 
construction  is  essential  to  understanding  the  remainder  of 
the  linker,  an  example  will  be  examined  to  demonstrate  the 
preceding   sections. 

In  Figure  4.8  a  sample  topology  of  a  TI-59  program 
is  given.  It  includes  four  subroutines  of  various  sizes  and 
with    varicus  control    flow  indirections.  In   looking   at   the 

diagram  it  is  important  to  note  the  absolute  address  loca- 
tions given,  for  these  will  be  critical  to  understanding  the 
development   of    the    sequential   tables. 

As  was  mentioned,  the  first  operation  is  the 
restructuring  of  the  generated  TI-59  code.  Figure  4.8 
represents  approximately  this  structuring.  The  actual  cede 
line  is  rebuilt  internally  in  the  machine  and  is  pointed  to 
by    pointer    EDILT^CODE. 

Figure  4.9  is  the  completed  sequential  segment 
table,  without  the  linked  header  node  list.  To  understand 
the  concept  of  sequential  segment  a  comparative  look  at 
Figures  4.8  and  4.9  must  be  made.  In  Figure  4.9  the  first 
sequential  segment  is  defined  as  being  between  addresses  QOO 
and  049.  This  is  reflected  in  Figure  4.8.  When  locking  at 
the  sequential  record  one  sees  that  the  forward  jump  infor- 
mation is  captured  in  the  forward  jump  list  node  which,  in 
this    case,        is    only      one  node   long.  when   looking      at   the 

second  sequential  segment  one  notes  that  there  is  a  nested 
back    jump.  The   sequential  segment      is   defined   to      be   that 

segment  which  is  covered  completely  by  back  jumps.  In  this 
case  it  extends  from  050  to  199.  If  for  some  reason  the 
back    jumps      shown   in    Figure    4.8      did    not    fully      contain   each 
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other,  that  is  to  say,  one  jump  starred  at  199  and  stepped 
at  090  and  the  other  started  at  150  and  stopped  at  050,  -hen 
the  ccver  would  still  extend  from  050  -o  199.  The  reason  is 
that  this  region  of  cede  is  probably  caught  in  an  iterative 
loop  and  cannot  under  any  circumsxances  sustain  a  break 
withir   this   cover. 

Another  point  to  be  mads  is  the  manner  in  which  each 
subroutine's  sequential  segments  are  recorded  together.  In 
addition  each  invocation  is  recorded  as  is  each  forward 
jump.  During  the  completion  of  the  table,  invocations  to 
the  same  routines  from  different  invocation  locations  are 
deleted,  thus  leaving  only  one  link  to  the  called  routine 
for    that   sequential    segment. 

A  final  point  concerns  the  recursive  nature  of  th? 
structure.  By  assuming  that  the  first  subroutine  is  the 
main  rcutin?  and  that  all  other  lower  level  routines  are 
below  it  (in  the  sense  that  they  are  pointed  to  from  invoca- 
tion nodes)  one  can  see  that  any  routine  used  to  ccnibine 
segments  can  be  used  on  any  subroutine's  sequential 
segments.  This  opens  the  door  for  recursion  to  be  used  in  a 
bottom    up    recombination    scheme   to   be    discussed   later. 

Many  problems  were  encountered  in  the  development  of 
the  preprocessor  phase  of  the  linker.  Only  the  most  diffi- 
cult   or   annoying  will  be   discussed. 

Cne  of  the  first  problems  concerned  the  nul-^.iple 
meaning  cf  program  steps  in  the  generated  TI-59  code.  A 
separate  TI-59  program  step  may  be  either  a  command, 
register  number,  flag  number,  or  part  of  an  address.  The 
meaning  is  dependent  on  the  last  valid  command.  Commands 
can  affect  the  interpretation  of  a  program  step  as  far  as 
three  step  positions  away  (analogous  to  the  concept  cf  one- 
byte,  two-byte,  and  three-byte  instructions  in  assembly 
code) .  This  had  to  be  taken  into  account  when  doing  any 
operation   requiring      an   interpretation      of   the     code.        This 
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resulted  in  special  cede  sets  being  initialized  and  special 
routines  being  written  to  print  ou^i  labels  and  move  -he 
compiled   cede      list    pcinters.  All    of      -hese  are      shown   in 

Figure   4.6- 

Impicvements  in  this  operative  phase  could  be  real- 
ized. In  the  early  stages  it  was  decided  -o  separate  the 
compiled  code  lists  from  the  segment  table  lists.  This  was 
to  avcid  accidental  tampering  with  the  compiled  code,  since 
the  integrity  of  the  compiled  code  was  the  paramount  consid- 
eration. It  would  be  possible  to  make  the  compiled  cede 
lists  a  variant  of  the  segment  table.  Then,  inst=ad  of 
having  relative  pointer  indexes  to  compiled  code  addresses, 
an  absolute  pointer  could  be  used.  This  may  reduce  the  size 
of  the  program  significantly  in  that  types  would  now  be 
compatible  and  a  reduction  in  the  numoer  of  output  routines 
due    tc   the    different    types    would    be   realized. 

2 .      Seqnientor 

After  the  input  file  has  been  preprocessed  then  the 
linker  passes  into  the  segmenting  phase  of  the  operation. 
The  routines  that  support  this  phase  are  built  into  the 
Pascal    prccsdure  called   C0AL2SCE   depicted    in    Figure    4.10. 

The  informal  strategy  called  for  the  seguential 
segments  of  a  subroutine  to  be  combined  to  form  larger 
sequential  segments.  This  recombination  would  be  allowed  as 
long  as  memory  limits  were  net  violated.  This  required  that 
invoked  subroutines  be  combined  first  before  the  caller  so 
as   to      make   room      for  the  invoked     routine's   code.  If   the 

invoked  routine  could  not  reside  then  a  break  was  placed  in 
the  dynamic  link  to  the  invoked  routine  and  prompting  code 
added  to  the  caller's  length  for  memory  size  checking 
purposes. 
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This      strategy      has      one      major      rsqairemen*  :  the 

invoked  routine  must  te  reccmbined  before  the  caller  can  be 
reccirbincd.  For      this      reason    a      recursive      solution      was 

adoptsd.  In  this  solution,  the  main  subroutine  is  reccm- 
bined. Ihe  first  part  of  the  recombination  process  is  to 
ensure  that  invoked  subroutines  will  reside  with  the  calling 
sequential  segment.  If  a  subroutine  is  encounterd  that  is 
not  combined  or  coalesced,  then  the  program  will  recurse  on 
the  new  rcutine.  Recursion  will  close  out  upon  completion 
of  coalescing  of  a  particular  routine.  When  all  the  sequen- 
tial segments  have  teen  checked  tnen  adjacent  segments  are 
combined. 

Another  part  cf  the  strategy  calls  for  the  combina- 
tion process  to  stop  when  a  size  limit  is  encounterd.  when 
this  happens  then  seme  sort  of  break  notation  must  be  used 
to  mark  where  the  limit  was  exceeded  so  as  to  prevent 
production  cf  code  segments  that  exceed  the  memory  capabili- 
ties cf  the  calculator.  After  the  break  has  been  set  then 
the  process  of  recombination  begins  on  the  other  side  of  the 
break  with  the  non-ccmbined  segments,  starting  again  with  a 
memory    liirit   of    zero. 

This  process  cf  breaking  and  checking  limits  results 
in  the  sequential  segment  table  containing  break  points. 
These  break  points  delineate  the  exact  locaticns  where 
program    segmentation      will    occur.  Thes<^    points      will    mark 

those  portions  of  code  which  can  fit  in  the  calculator 
memory  according  to  the  rules  of  segmentation  outlined  in 
the    preliminary    design. 

The  data  structure  that  supports  this  strategy  is 
the  sequential  segment  table.  No  other  structure  is  used. 
The  only  addition  tc  the  structure  is  the  node  referred  to 
as      a      subroutine      invocation    break      node.  This      node      is 

inserted  between  a  subroutine  invocation  list  node  and  the 
invoked      subroutine    sequential     segment      table.         All      other 
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changes  to  th^;  structure  involve  removing  nodes  and 
combining   adjacent    information   into   one   node. 

There  are  tvic  major  activities  that  supper-  the 
above    strategy.  The  first   activity      is   the   checking      of   a 

segment  and  the  second  activity  is  the  combining  of  adjacent 
segments.  Overseeing  these  activities  is  a  single  driver. 
This  tcpclogy  was  suggested  by  the  recursive  nature  of  the 
scluticn.  The  procedures  which  support  these  activities  are 
shown    in    Figure    4.10. 

The  driver  is  represented  by  the  Pascal  procedure 
COALESCi:.  This  routine  is  called  whenever  a  new  subroutine 
is  encountered  that  has  not  been  combined  or  coalesced.  The 
interior  Pascal  procedure  CHK_SEGSIZS  verifies  that  the 
specific  segment  it  is  looking  at,  together  with  all  called 
subroutines  on  the  subroutine  invocation  list  for  that 
segment,      will      reside   in  calculator    memory.  This   routine 

uses  S3ESUM  and  S3BSUMLINK  tc  determine  the  lengths  of 
invoked  routines.  It  recurses  mutually  by  calling  C0ALZSC2 
in  the  event  that  an  invoked  routine  has  not  yet  been  coal- 
esced. It  determines  this  by  looking  at  a  boolean  field  in 
the  segment  table.  This  field  is  set  true  if  the  subroutine 
has  been  coalesced.  The  other  procedure,  COfiHINE,  acccra- 
plishes  the  actual  combination  of  adjacent  sequential 
segments.  It        uses     the        length        predictor        routines 

MOD_S0MTCTF_JMP  and  MOD_S UMTOTSBR  to  predict  a  combined 
length  which  takes  into  account  any  changes  that  might  occur 
in  the  subroutine  invocation  or  forward  jump  lists.  If  the 
combined  length  is  within  limits  then  a  recombination 
occurs;  if  not,  pointers  are  advanced.  This  means  that  any 
sequential  segment  records  which  fellow  the  initial  sequen- 
tial segment  records  are  part  of  a  new  memory  calculation. 
In  other  words,  any  sequential  segment  links  that  are  not 
nil  represent  a  break  between  the  linked  sequential 
segments.         Upon    exiting   COALESCS,         the    subroutine    that    has 
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jusr  been  coalesced  is  marked  as  such  in  the  sequeErial 
record*s   bcclean   field   reserved   for   that   information. 

To  visualize  the  result  of  the  segmenting  phase 
another  lock  at  the  example  is  provided.  Figur=  4.11  repre- 
sents a  segmentation  based  on  a  memory  limic  of  550  st<?ps. 
Note  that  each  of  the  invoked  subroutines  has  been  coalesced 
into  a  single  sequential  segment.  also  note  that  a  break 
was  mads  in  the  main  subroutine.  This  is  shown  by  the  fact 
that  the  main  routine  is  act  a  single  segmen-  record.  By 
examining  the  table  it  can  bee  seen  that  the  rouxine 
labelled  "C"  will  be  copied  twice  when  the  -wo  memory  sized 
segments   are  produced. 

To  interface  between  modules  in  this  recursive  envi- 
ronment several  things  were  assumed  or  used.  The  first  was 
that  the  data  structure  would  serve  as  the  repository  of 
global  data.  In  addition,  a  variable  would  be  used  -o  keep 
"rack  of  the  current  size  of  the  combining  memciy  program 
steps.  This  variable  was  passed  as  a  parameter  in  order  to 
preserve  its  value  throughout  the  recursion.  All  pointers 
were  passed  as  local  parameters.  This  preserved  locations 
in  the  data  structure  as  the  algorithm  progressed  through 
the    different   levels   cf    recursion. 

These  operations  did  require  some  other  work  in 
crder  to  obtain  valid  data  that  would  correctly  calculate 
code  lengths  to  include  multiple  copies  of  subroutines.  The 
problem  occurred  when  there  were  mul-^iple  invocations  to  the 
same  subroutine  from  different  segments  (or  even  different 
subroutines)  that  up  to  now  were  ail  includ-d  in  "^he  same 
memory  limit  calculation.  To  solve  this  another  field  was 
placed  in  the  segment  record  to  indicate  whether  or  not  the 
particular  routine  had  been  included  or  not  in  length  calcu- 
lations. Whenever  a  sum  was  calculated  and  a  routine 
included  then  th€  field  was  set  true.  Whenever  a  new  memory 
limit    was   reset    back   to   zero   following   the    implantation  of  a 
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break  pcint,  a  SYSTEM  UTILITY  procedura  was  used  to  r^set 
all  the  included  fields  back  to  false.  This  means  tha^  only 
one  copy  cf  a  subroutine  would  be  considered  for  each  calcu- 
lator  sized    memory    ccmputat  ion. 

Future  implementations  should  develop  a  hstzsr 
method  for  recording  whether  a  segment  is  coalesced  or 
included.  The  incli^sion  of  this  field  in  the  segment  table 
record  was  a  "quick  fix."  This  fix  results  in  wasted 
storage  as  it  is  only  used  in  the  first  record  for  each 
subroutine.  An  improvement  would  be  to  use  another  variant 
record  to  record  all  current  data,  with  the  exception  of 
coalesced  and  included  information,  for  all  other  sequential 
segment  nodes  other  than  the  first  sequential  segment  node. 
This    would   save    memory. 

3  •      l£§l  Processor 

Aft€r  the  segmentation  phase,  the  linker  passes  into 
the  postprocessor  phase.  It  is  this  phase  that  provides  the 
required   output    for    the   user. 

The  informal  strategy  divides  this  phase  into  three 
distinct   operations.  The    first      operation    designates      the 

start      of    each      calculator    sized     segment      of   code.  These 

segments,  which  meet  the  memory  requirements  of  the  calcu- 
lator, ar?  referred  to  as  memory  modules.  The  second 
operation  copies  the  required  code  into  each  segment  and 
inserts  any  segmentation  prompting  instructions  that  are 
needed  for  successful  code  execution.  The  last  operation 
consists  of  ouputting  the  segmented  code  in  a  user  friendly 
instruction      sheet      format.  This        completes      all      linker 

actions. 

In  order  to  support  the  informal  strategy,  several 
data  structures  are  used,  two  of  which  were  described 
earlier.  They  are  the  segment  table  and  the  compiled  code 
list.         At    this      point  the    segment   table      has   been    coalesced 
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and  contains  the  locations  cf  the  segmantaticn  breaks  that 
will  liriniize  card  r^ads.  The  compiled  code  will  be  copied 
by   segment      as    delineated      in   the      segaent    table.  A    third 

structure  is  built  in  this  phase  and  a  fourth  structure  is 
provided   with  the    program. 

The  third  structure  is  refered  to  as  the  memory 
module      data  structure.  It      is   a      Pascal      variant    of      the 

segment  table,  which  allows  compatible  pointer  references 
between  the  two  objects.  The  structure  consists  of  a  linked 
list  of  head  nodes,  which  are  named  by  respective  memory 
module   number.  They   represent      one   calculator's      worth   cf 

available  memory  programming  steps  as  determined  by  the 
calculator  partition.  Each  node  ::f  tnis  linked  list  points 
to  twc  locations.  Cne  location  is  to  the  first  seguential 
segment  table  record  node  following  a  segmentation  break. 
The  second  link  is  to  the  copied  code  that  will  make  up  the 
programnirg  steps  of  the  memory  module.  In  Figure  u.11, 
there  would  be  two  memory  module  header  nodes.  The  first 
header  node  always  points  to  the  first  sequential  segment  of 
the      main   subroutine.  In    the      example      this    first      memory 

module  would  be  pointing  to  the  node  beginning  with  address 
000.  The  second  meicry  module  node  would  point  to  a  r-ccrd 
that  follows  a  break.  This  would  be  to  the  seguential 
segment  node  beginnirg  with  address  290.  Just  as  there  are 
no  other  breaks,  there  are  no  ether  memory  module  nodas. 
The    other    pointers    would    point    to   a    linked    list    of   code. 

The  copied  compiled  code  list  is  a  part  of  the 
memory  module  data  structure.  It  is  another  Pascal  variant 
cf  the  same  record  type.  This  list  is  similar  in  structure 
to  the  ccnipiled  cods  list  reproduced  during  the  preprocessor 
phase.  The  only  difference  is  in  type.  Another  difference 
is  that  there  are  no  jump  pointers  or  dynamic  pointers  indi- 
cating a  change  in  flow  of  control.  The  structure  is  just  a 
linked   list    of    sequential  code.  This    structure    is    pointed 
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to  by  the  memory  module  header  node.  Another  point  ":o  br 
made  is  that  the  lirked  cede  lis-,  when  completed,  dees 
contain  ether  code  that  is  needed  for  prcmpting.  As  such  It 
is  net  a  one  for  cne  copy  of  tha  compiled  code  list. 
Las-cly,  a  look  at  Figure  4.  11  will  show  exacxly  the  segments 
cf  cede  that  can  be  expected  *o  form  -he  two  memory  module 
structures.  By  looking  ar  th 2  sequential  segment  nodes  and 
following  their  dynairic  pointars  of  the  subroutine  lists  all 
required   cede      start   and   stop     addresses   are   given.  It   is 

this  "lock  down"  facility  of  the  sequential  segment  table 
that    make   it   so    useful. 

The  fourth  data  object  is  provided  with  the  linker 
program.  It  is  a  textual  fils  which  contains  text  messages 
which  are  used  by  the  linker.  Each  message  is  delineated  by 
a  $XXX  where  XXX  is  an  integer.  The  linker,  when  provided 
the  number  portion  cf  a  message,  can  easily  locate  tae 
message.  Cnce  located  it  can  either  extract  values  or  copy 
the  message  verbatim  to  an  output  file.  This  is  what  occurs 
during   the    formatting  of   the   instruction   messages. 

The  operations  that  build  and  manipulate  the  data 
structures    function      in   three    phases.  Figure    4.12      is   the 

contour  diagram  of  the  subroutine  that  supports  these 
operations. 

The  first  operation  is  the  construction  cf  the 
header  memory  module  nodes.  This  is  accomplished  by  the 
Pascal  procedure  BLD_aEM0D0LEN0D2S  depicted  in  Figure  4. 12. 
This  procedure  traverses  the  segment  table  and  locks  for 
break  pcints.  When  it  finds  one,  it  checks  to  see  if  the 
break      has      already    been      detected.  If      it   has      net      been 

detected  then  it  builds  the  header  node  and  assigns  it  a 
memory  module  number.  The  reason  for  the  check  is  that  the 
traversing      mechanism     is      based      on      recursion.  In     this 

strategy,  traversing  is  begun  with  the  mam  subroutine.  In 
Figure    4.11    this   would  correspond  to    subroutine   LSL    A,      node 
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start    address   000.  It    then    searches   right      along    z'm   same 

sabroutine  tc  detect  all  breaks  of  thax  subroutine.  Then  it 
resets  back  to  the  start  of  L3L  A  and  begins  to  check  -he 
subroutine  list  of  each  node  that  comprises  LEI  A. 
Recursion  is  implemented  at  this  point  when  the  subroutine 
link  is  traversed  and  another  subroutine  is  discovered.  If 
a  break  is  discovered  in  the  subrout.ine  list  then  another 
memory  headar  node  is  built  and  the  program  bypasses  the 
break  and  recurses  on  the  next  subroutine.  This  traversal 
mechanism  leads  to  multiple  discoveries  of  the  same  breaks. 
Consequently,  the  check  is  made  to  ensure  multiple  copies 
are    net    placed    ir  the  memory   module    header    list. 

The  next  operation  consists  of  copying  cede  from  the 
compiled  list,  resetting  address  key  codes  for  jumps  and 
adding  prcmfting  code  to  each  specific  aemory  module  code 
list.  Figure        U.12     contains        the        Pascal        procedure 

BLD_MEMODULECODE  which  accomplishes  the  above  tasks.  This 
is  done  ty  moving  down  the  memory  module  header  list  in  a 
sequential  fashion.  At  each  header,  the  link  to  the  segment 
table  is  traversed  tc  determine  exactly  what  segments  of  the 
compiled      cede    are      to      be    copied.  This      is      the    duty      of 

BLD_A_MEMCHY  in  Figure  U.12.  Once  the  start  and  step  points 
are  determined  and  copied  then  recursion  is  utilized  to 
traverse  the  subroutine  links  of  the  sequential  segment 
table  to  obtain  the  required  copies  of  resident  subroutines 
to  support  the  functioning  of  higher  level  segments.  During 
this  operation  the  segment  table  is  used  as  a  "check  pad," 
that  is,  copies  are  marked  included  after  being  copied  and 
are  reset  upon  completion  of  copying.  Another  function 
accomplished  during  the  processing  of  a  memory  module 
segment      is     the     addition        of      prompting      code.  Lastly, 

addresses  are  reset  and  justified  to  include  the  resetting 
of  jump  address  key  cedes  to  reflect  new  jumps  to  internal 
prompting  messages  and  the  absolute  address  of  the  origi- 
nally  ccmpiled    code    list. 
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Cnca  zhe  meacry  module  data  otruc-tur«  is  ccnipl'=ted 
then  tha  structure  is  presented  to  -he  user  in  an  ins-ruc- 
tion type  cf  format.  This  is  the  purpose  of  the  Pascal 
procedure  OUTPQT^INSTE.  This  procedure  utilizes  two  data 
structures.  It  uses  the  provided  message  file  structure  and 
the  memory  module  structure.  The  first  action  is  to  output 
the  instruction  introduction.  This  the  procedure  does 
through  the  use  of  the  message  file  and  the  SYSTEM  UTILITITY 
programs  FIND_MSG,  PFINTLN^HSG  and  PRINT_LINEJ1SG .  These  are 
depicted  in  Figure  4.6.  These  procedures  allow  the  linker 
to  copy  verbatim  messages  in  preformatrad  form.  Once  this 
is  dene  the  procedure  copies  the  ccdelist  from  each  of  the 
memory  module  lists  cf  code.  Once  a  specific  module  is 
copied  the  driver  routine,  CUTPUT_MSGF1 ,  prints  out  specific 
information  to  delineate  each  memory  module.  After  this 
acticr  is  accomplished,  the  procedure  traverses  the  segment 
table  and  prints  out  additional  user  information  that  will 
aid    the   user  in    the    execution   of    his    program. 

Interfaces  between  modules  are  accomplished  as  usual 
with    pointers.  These    pointers      point    to      their    respective 

data  structures.  Global  information  is  recorded  in  the  data 
structures  or  in  special  global  variables  which  are  passed 
as    parameters  during   recursive   operations. 

Cne  major  prctlem  that  was  encountered  and  solved  m 
an  interesting  manner  concerns  the  formatting  of  the  output. 
The  vast  amount  cf  instructional  information  that  was 
required  to  be  output  made  inclusion  in  the  source  cede 
ridiculous.  To  solve  this,  the  message  file  system  was 
developed.  This  system  consists  of  a  text  file  containing 
Preformatted  messages  and  a  several  procedures  located  in 
the  SYSTEM  UTILITIES  contour  in  Figure  a. 6.  Each  message  is 
delineated  by  a  "$"  and  a  number.  Two  types  of  messages  can 
be    processed.  One    kind   of      message    results    in      a    complete 

copy    from   the      first    line   following   the      message   code    (3XXX) 
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dcwn  to  th?  lin€  preceding  the  naxt  "$"  encoutered.  The 
ether  nessages  are  one-line  messages  which  copied  until  the 
"$"  at  the  end  of  the  message.  This  gives  the  prcgrammer 
the  capability  to  write  out  bloclcs  of  text  and  to  write  cut 
texr    and    computer  generated    information   on    the  same    line. 

Another  capability  provided  by  the  package  is  the 
ability  to  search  out  messages  from  other  files.  The  proce- 
dure FINC^MSG  takes  as  parameters  a  file  as  well  as  a 
message    number.  This    facility      allowed   the      linker   to      be 

loosely  coupled  with  the  cross-compiler  by  interfacing  with 
a  message  number  coded  file  produced  by  the  cross-ccmpiler. 
All  that  the  linker  needed  to  know  was  under  which  nuirber  a 
required  piece  of  information  was  coded  and  the  interface 
file    name   to  affect    an   interface. 

An  improvement  might  be  realized  in  the  output  of 
the  generated  code  list.  Currently  there  are  two  separate 
sets    cf      procedures    used      to   output      code   lists.  This   was 

primarily  due  to  typing  differences.  However,  the  second 
set  cf  print  procedures  located  in  INSTRUCTIONS  (see  Figure 
4.12)  is  probably  mere  efficient.  Furthermore,  if  the 
reconstructed  code  were  changed  to  be  a  variant  of  the 
segment  table  structure  then  a  redaction  in  Pascal  cede 
lines  would  be  realized  through  the  elimination  of  a  cede 
list  grcuf  cf  printing  procedures.  A  further  increase  in 
efficiency  may  be  realized  in  any  operations  requiring  use 
cf   the    reccTistructsd   compiled   code  list. 

C.       INTERFACE   ENGINEEBIHG 

In  any  detailed  design,  careful  consideration  must  be 
given  to  interfacing  criteria.  Interfacing  criteria  should 
be  as  explicit  as  possible,  however  this  is  not  always 
possible.  Sometimes,  design  decisions  or  engineering  inter- 
pretations   have      implications   that      affect    other      modules    or 
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submcdules.  These  are  generally  of  an  indirect  na-ure  in 
that  the  interface  is  implied  in  tne  system  structure  and  is 
not    explicitly    passed  from    module   t.o    module. 

Thess   types    of    interfaces    surface    in   the    detailed   design 
phase.  Decisions    regarding      TI-59      address    labelling      and 

structure  of  the  TI-59  subroutine  greatly  affected  the 
design.  In  addition,  assumptions  about  the  use  of  struc- 
tured programming  and  the  prohibition  of  recursive  WEASIC 
programs  facilitated  system  design.  Simple  redefinition  of 
the  use  of  WEASIC  commands  RZAD/DATA  provided  any  easy  form 
of  I/C,  hut  again  was  an  implied  interface.  These  types  of 
implied  in-erfaces  will  be  examined  in  the  following 
sections  since  they  are  critical  to  understanding  the  system 
cperaticES   and    to   future   maintenance. 

1 .      i ddr essina    TI-59    SB R 

Cne  implied  interface  resulted  from  a  decision  on 
the  mechanism  of  subroutine  invocation  which  would  be  used 
by  the  system.  This  decision  arose  from  the  fact  that  tha 
TI-59  calculator  may  invoice  subroutine  code  in  several 
different    ways. 

To  understand  why  a  decision  was  required  a  lock  at 
the  subroutine  naming  conventions  and  procedure  for  invoca- 
tion are  in  order.  A  subroutine  name  is  composed  of  two 
program  steps.  The  first  step  is  the  keycode  76.  This  is 
the  LEL  cede.  It  tells  the  calculator  that  the  next  key  is 
a  subroutine  name.  The  next  program  step  is  the  actual 
subroutine  name.  Ths  keys  which  may  serve  as  actual  subrou- 
tine names  nay  be  one  of  two  types.  The  first  type  comes 
from  keys  which  are  undefined.  That  is  to  say  the  keys  are 
not  used  by  the  calculator  to  perform  calculator  functions; 
they      are   strictly      reserved   for      naming   subroutines.  The 

ether  type  of  name  ccmes  from  defined  keys.  3y  this  we  mean 
that      the      calculator     uses      ths    keys      in      some      fashion      in 
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additicn  *c  naming  si:fcrouti  nes .  rhess  keys  are  cv^rlcadid: 
they   can    have  two   meanings. 

Ic  define  which  aieaning  is  to  be  interpreted  the 
calculator  requires  that  a  subroutine  definition  be  preceded 
with    a    sfecial      key    called    the    label    key.  This    alerts   the 

calculator  to  the  fact  that  the  next  program  step  is  a 
subroutine    name.  Tc  invoke    a   subroutine,        the    calculator 

requires  double  meaning  labels  to  be  preceded  with  a  special 
key    called    the    invocation   key.  This    alerts   the    calculator 

to  the  double  meaning  much  as  the  label  key.  For  undefined 
keys,  this  alert  key  is  not  required  though  its  use  will  not 
alter      any      transfers.  There      exists      another      method      of 

invoking  subroutines.  This  calls  for  the  invocation  alert 
key      to    be      followed    by      an      absolute    address.  It    is      the 

duality   cf    meanings    which    presented    problems. 

Tc  overcome  these  problems  two  decisions  were  made. 
The  first  decision  required  that  all  undefined  keys  be 
treated  as  if  they  were  defined  keys.  This  resulted  in  cnly 
one  case  tc  be  developed  tc  handle  subroutine  naming.  The 
penalty  for  this  decision  is  that  an  added  step  was  gener- 
ated whenever  an  undefined  key  was  used  as  a  label  and  a 
call  to  that  label  was  made.  The  other  decision  disallowed 
the  use  of  absolute  addresses  in  the  subroutine  invocation. 
all    invocations    would   use   labels.  This    decision    carri5d   a 

penalty  in  terms  of  execution  speed.  The  calculator  must 
search  program  step  memory  to  locate  named  subroutines 
whereas  address  references  can  be  reached  directly.  On  the 
other  hand  there  are  several  benefits.  One  program  step  was 
saved  since  a  lab«l  requires  cnly  one  step  whereas  an  abso- 
lute address  requires  three.  The  other  benefit  permitted 
the  definition  of  the  invocation  alert  key  as  a  two  step 
instruction  and  not  a  two  or  three  step  instruction.  This 
was  the  primary  reason  for  this  implementation.  All  of  the 
system    was    designed    with   this    decision    in    mind. 
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2  •      Structur  sd    Sufcroutir.f  s 

A  problem  aicse  with  ths  defining  of  subrcutir.ss. 
The  calculator  permits  subroutines  to  be  defined  within 
other  subroutines.  Ihough  this  in  itself  is  net  extraordi- 
nary, the  fact  that  nested  definitions  may  be  closed  cut 
with  the  same  subroutine  return  key  is  not  usually 
permitted.  This  type  of  structure  made  subrou-ine  detection 
for    segmertation   purposes   very   difficult. 

To  solve  this  problem  it  was  decided  zc  allow  only 
structured  subroutine  definitions.  That  is  to  say,  only  cna 
return  was  permitted  for  each  label.  In  addition,  it  was 
decided  to  disallow  nested  definitions.  In  fact,  the  deci- 
sion was  made  to  require  that  the  programmer  position  his 
main  program  first  in  viBASIC  source  code  and  to  have  all  of 
his    subroutines    follow  in   the    manner    described   above. 

This  interface  design  decision  forced  a  specific 
program  structure.  This  structure  was  easy  to  detect,  easy 
to  compile  and  easy  to  segment.  These  benefits  were  real- 
ized at  a  cos-  of  net  being  able  to  generate  efficient  or 
"tricky"  code  and  of  reducing  the  programmer* s  leeway  in 
developing    his    WEASIC   source   code    program    structure. 

3 .      Eecursion 

Although  TI-59  calculator  instructions  tend  to  be 
evasive  on  the  subject,  recursive  programs  can  be  executed 
in   a    few    special  situations.  Some    BASIC    languages   support 

recursion,      ethers      dc  not.  Although   the      WBASIC    language 

supports  recursion,  limitations  imposed  by  the  calculator 
forced  us  to  disallow  the  translation  of  recursive  source 
programs,  ether  reasons  for  this  decision  involved  complex- 
ities   which    such   programs   would   present    to    the   linker. 
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^  •      Inpu  VOutput 

Th€  dev€lopn€nt  of  the  input/ou- put.  structure  was 
designed  arcund  the  three  major  limit. a- ions  of  the  calcu- 
lator: prcgramming  steps  available,  storage  registers 
available,  and  the  calculator  numeric  display.  In  order  to 
develop  an  efficient  system  to  allow  for  input  and  output, 
restrictions  were   placed   on    some    WBASIC    commands. 

Since  the  calculator  display  allows  only  numeric 
input  and  output,  then  any  information  passed  between  a 
human  operator  and  the  calculator  must  be  in  numeric  form. 
Prompts  used  to  communicate  with  the  human  must  be  imbedded 
in    the      compiled  code.  In   the    case      of    input      and    output, 

these  frcmpts  have  an  overhead  in  that  they  use  up  valuable 
programming  steps.  For  example,  with  each  INPUT  command  in 
HB&SIC,  a  total  of  seven  steps  are  generated  to  produce  a 
prompt    and      store   a    value      in    the   calculator.  The    problem 

with  this  occurs  when  large  numbers  of  variables  need  to  be 
input.  If  60  variables  are  required  for  input  then  the 
INPUT    ccmniand      will    generate      420   steps.  This    is      clearly 

unacceptable. 

To  solve  this  problem  the  semantics  of  the  WEASIC 
commands  READ  and  DATA  were  modified.  Use  of  these  comniands 
within  a  source  prcgram  does  not  increase  the  number  of 
program    steps   in   the    translation.  A   table   of    WBASIC    vari- 

able names  assigned  to  TI-59  registers  is  produced  and 
placed  in  the  interface  file.  This  allows  the  human  to 
input  all  of  his  data  prior  to  execution  without  having  to 
pay    the    penalty    of    generating   extra    prompting   code. 

Another  decision  concerns  th=  location  of  the  DATA 
and      READ      statements:  All      DATA/READ      pairs      must      occur 

together    at    the      beginning    of   the   program.  The    reason    for 

this  should  be  clear.  It  would  be  impossible  to  placs  the 
commands    in      the  middle      of    the      program    because      they    would 
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have  no  effect.  With  zhe  exception  of  a  single  NOP  (-which 
is  eliminated  during  peephole  optimization) ,  these  commands 
generate  no  code.  As  a  result,  no  run-time  modification  of 
variables      can    occur.  Furthermore,       DATA/RE^D      statements 

placed  within  loops  would  invalidate  the  DATA  to  R£AD 
mapping,    a    static   table. 

The  whole  purpose  of  the  redefinition  of  these 
commands  was  to  give  the  user  an  optional  form  of  I/O.  This 
was  expected  to  increase  the  efficiency  of  the  generated 
code.  These  decisions  influenced  much  of  the  design  cf  the 
system. 
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V.     TESTING 

The  test  program  and  its  generated  cu-cput  are  provided 
in  Appendices  K  through  P  of  this  report.  The  test  program 
was    chcsen      for    several   reasons.  The    first   reason      was   to 

test  the  actual  ability  of  the  system  zo  produce  a  usatle 
TI-59    coded    program.  The    second  reason    was      to    attempt   to 

obtain  an  idea  as  to  the  efficiency  of  the  system-generated 
code.  The  following  sections  present  a  description  of  the 
test  program  and  comment  on  the  efficiency  of  the  generated 
code. 

A.       TEST    EROGHIM    D2SCBIPTI0N 

In  developing  a  tsst  program  several  considerations  had 
to  be  taken  into  account.  The  first  consideration  required 
that  the  generated  cede  be  verifiable.  To  verify  the  gener- 
ated code,  i*  was  decided  to  program  a  solution  to  a  problem 
for  which  verifiable  solutions  existed.  Verification  would 
te  achieved  if  the  system- generated  solutions  matched  those 
of  the  axisting  solutions  for  the  same  inputs.  The  second 
consideration  was  to  attempt  to  arrive  at  some  sort  of  effi- 
ciency ccmparison  between  the  system  generated  TI-59  program 
and   an   opticrized   hand   coded    TI-59   program. 

The  test  problem  which  was  selected  fit  the  above 
criteria.  First  of  all,  solutions  to  known  input  values 
existed.  This  ensured  proper  verification  of  the  generated 
code.  Secondly,  a  highly  optimized  hand  coded  solution  to 
the  problem  existed  fcr  comparison.  The  problem  selected  is 
called    the    "Gunnery    Problem." 


89 


The  gunnery  problem  is  to  determine  firing  data  tor  a 
howitzer   cannon.  It   consists      cf    inputting      the    fcllcwing 

data:  piece  location,  target  location,  piece  corrections  and 
howitzer  tallisric  coeff ici sn- s.  The  output  which  is  gener- 
ated consists  of  time  to  target,  elevation  to  achieve  target 
hit  and  the  lateral  deflection  (an  angular  measurement)  to 
align    with   the    target. 

The  solution  involves  calculating  a  range  to  target  as 
well  as  an  azimuth  to  the  target.  The  azimuth  is  then 
converted  to  a  lateral  deflection,  which  is  understood  by 
the  piece  to  be  the  correct  azimuth  on  which  to  align. 
Next,  three  quadratic  equations  are  solved  to  determine 
elevation,  time  of  flight  and  shell  drift.  These  are 
applied  to  the  lateral  deflection  and  to  the  piece  eleva- 
tion. A  decision  based  on  the  calculated  range  to  target  is 
needed  to  ensure  correct  ballistic  coefficients  are  used  in 
the  ccmpu+ation.  These  coefficients  are  based  on  the  charge 
which    is    to   be    fired    to   achieve  the    range. 

The  hand  coded  version  solution  has  been  in  use  since 
1976.  The  accuracy  cf  this  version  was  checked  by  artillery 
ballistic  tables  and  by  the  Field  Artillery  Digital  Computer 
(FADAC) ,  the  recognized  source  of  all  correct  firing  data. 
Ey  using  this  solution,  vast  quantities  of  test  input  and 
output    were   available   for  program   verification   runs. 

The  hand  developed  version  is  highly  optimized.  For 
example,  the  hand  version  stores  eight  numbers  in  four 
storage  registers.  This  is  accomplised  by  storing  the 
numbers  on  either  side  of  the  decimal  point  in  a  real 
number.  This  real  number  is  then  decomposed  in  a  subroutine 
to  obtain  the  correct  number.  In  addition,  this  version 
makes  use  cf  calculator  commands  that  were  not  iirplemented 
by  the  £flX59.  For  example,  there  is  great  use  of  the  indi- 
rect stcre,  decrement  and  skip  on  zero  and  polar  to 
rectangular  commands.  All  of  these  features  made  the  hand 
coded   versicn  a    highly  optimized    program. 
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B-       lEST    COMMENTS 

The  WEASIC  solution  was  coded  using  basically  ths  same 
program  structure  as  the  hand  coded  solution.  This  source 
cede  is  presented  in  Appendix  K.  The  interface  file  gener- 
ated by  the  cross-compiler  is  presented  in  Appendix  0.  The 
final  output  generated  by  the  linicer  is  presented  in 
Appendix   E. 

In  verifying  the  accuracy  of  the  generated  cods,  many 
runs  were  made  using  input  data  for  which  known  solutions 
existed.  There  were  no  deviations  from  the  known  solutions 
in  any  of  the  test  runs.  The  conclusion  is  that  the  gener- 
ated   code    was  accurate. 

In  ccmparing  efficiency  a  common  unit  of  measurement  was 
needed    fcr   comparison.  This   common    unit    was      chosen    to   be 

the    TI-59      program    step.  The   reason      fcr   this      is    simple. 

Both  registers  and  program  steps  reside  in  the  same  memory. 
Registers  occupy  eight  programming  steps.  To  measure  how 
much  memory  a  program  uses  it  was  only  necessary  to  multiply 
the    number      of    storage   registers    times      eight    and    add      it    to 


the    number      of    program      steps 


arrive   at      a   figure      which 


measured    meircry    usage   within   the   calculator.- 

This  was  don?  with  the  EAX59  generated  coda  and  the  hand 
coded  prcgrams.  The  hand  coded  solution  used  441  steps  and 
60  registers  for  a  total  step  count  of  921.  The  BAX59 
generated  cede  used  652  steps  and  86  registers  for  a  total 
step  count  cf  1340.  This  represented  an  increase  over  the 
hand    coded    solution    cf   419    steps   or    a    45%    increase. 

A  time  to  solution  comparison  was  made  next  since  the 
primary  purpose  of  the  BAX59  system  is  to  allow  an  indi- 
vidual to  quickly  obtain  a  program  capable  of  running  on  the 
TI-59  calculator.  Tc  begin  with,  the  hand  coded  version  was 
developed  by  three  individuals  over  a  period  of  several 
weeks.      The    BASIC   program   used   as    input    for   the    BAX59    system 
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tcok      cr.ly   cue      person  one      day      to    write      and   debug.  Thr 

utility  cf  a  higher  level  language  greatly  simplified  the 
programming  process.  It  is  this  savings  in  programming 
development  which  makes  the  desirability  of  the  BAX59  system 
readily   apparant. 

In  locking  at  the  system-generated  program  some  mere 
comments  can  be  made  about  where  the  relative  overhead 
occurs.  Of  the  total  652  programming  steps  it  was  noted 
that  84  steps  were  due  tc  prompting  code.  Siz  storage 
registers  were  used  as  manual  return  registers  while  one 
register  was  used  as  a  temporary  display  storage  register. 
Another  register  was  used  in  th9  manual  subroutine  r'=turn 
prompting  scheme.  This  totals  for  the  Linker  an  overhead  of 
148  programming  steps.  This  Linker  overhead  represents  11*^, 
of  the  total  generated  steps  indicating  that  the  compiler 
generated  at  least  3H%  more  code  than  the  hand  optimized 
coded   program. 

One  last  comment  concerning  the  actual  running  of  the 
EAX59    generated    program      needs    to    be    made.  In    running    the 

BAX59  code  it  was  determined  that  time  of  execution  became 
totally  dependent  on  the  amount  of  cards  required  to  be 
read  in  and  out.  If  the  head  reader  in  the  calculator  func- 
tioned properly,  then  this  required  small  amounts  of  time  to 
accomplish.  If  however,  the  head  reader  malfunctioned,  then 
the    reading   of      cards   became   an   ordeal.  In   addition,      the 

user  had  tc  pay  clcse  attention  to  the  program  prompting 
scheme   or   he  would    become   lost   between   card   reads. 
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VI.     CONCLUSION 

In  ihe  following  discussions,  rha  test  program  is  evalu- 
ated together  with  the  actual  design.  Based  on  this 
evaluation  several  ccnclusicns  are  drawn  and  recommendations 
presented. 

A.       E\fAI0ATION    OF    TEST    RESULTS 

In  examining  the  test  data,  ir  is  important  to  realize 
zha.z    this      is  only   a      single   test.  As   such,      it      does   not 

represent  the  whole  set  of  BASIC  programs  which  may  be 
executed  by  the  BAX59  software  system.  However,  the  test 
does  give  an  insight  into  the  actual  efficiencies  which 
might  be  expected.  While  actual  numerical  data  is  given 
these  data  should  not  be  viewed  as  a  statistical  analysis  of 
the  system.  Rather,  the  data  is  m^ant  to  provide  some  frame 
of   reference  for  the    discussion  of  system   efficiency. 

In  examining  the  test  program,  it  is  noted  that  excess 
code  generated  airounts  to  roughly  457o.  Of  this,  approxi- 
mately 11^  can  be  attributed  to  the  linker,  while  3^%  can  be 
attributed  to  the  cross-compiler.  Although  the  total  over- 
head seems  rather  large,  the  reason  for  building  the  system 
must  fce  recalled.  The  primary  reason  is  to  facilitate  th» 
rapid  design  and  implementation  of  programs  on  the  TI-59 
calculator.  In  view  of  this,  it  becomes  clear  that  the 
overhead  is  secondary  to  the  problem.  Our  real  yardstick 
for  success  is  whether  or  not  TI-59  programs  can  be  devel- 
oped more  rapidly  than  hand  coded  programs.  The  test 
program  provides  an  insight  into  this  side  of  the  problem. 
Development  time  was  about  one  order  of  magnitude  faster 
compared    to   the    hand    coded    solution. 
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This  rapid  d€velcfment  time  mors  zhan  justifies  the  high 
overhead.  This  is  true  in  most  academic  applicaticns,  as 
inosr    program  executions     are   limited    in   nature.  If   or.   the 

other  hand,  a  program  is  to  be  executed  many  times,  -hen  an 
optimized  hand  coded  program  might  te  better  than  the 
machine  generated  version.  The  final  decision  lies  with  the 
user.  His  program  execution  requirements,  and  the  accunt  of 
time  he  has  available  to  design  and  build  his  solution,  will 
drive   his   selection. 

E.       CCNCIOSICNS 

In  view  of  the  target  machine  limitations,  it  is  prob- 
ably safe  to  concluded  that  the  system  is  a  valid  first-cut 
prototype.  The  prototype  proved  the  desirability  and  feasi- 
bility of  the  concept,  that  quick  calculator  programming  can 
be  realized  with  the  minimum  of  effort.  The  following  para- 
graphs discuss  the  prototypes's  limitations  and  suggest 
reasons  why  the  current  system  is  not  yet  useful  as  a  good 
production   system. 

The  calculator  is  severly  limited  in  memory  capacity. 
The  TI-59  calculator  has  only  959  program  steps  for  program 
usage.  The  overhead  in  code  generation  and  segmentation 
prompts  use  up  45%  of  these  steps.  Together  with  the  fact 
that  only  three  memory  partitions  between  program  steps  and 
storage  registers  are  available,  the  ^5%  becomes  a  signifi- 
cant   driving   figure    in  calculator    use. 

The  memcry  problem  restricts  the  varieties  of  programs 
which  may  be  written  for  translation.  Programs  may  net  be 
written  which  require  a  main  routine  having  a  long  back  jump 
that  covers  a  vast  portion  cf  memory.  This  is  because  the 
linker  segmentation  rules  will  be  violated  underneath  the 
covered      iterative    segment.  The      segmenter      will    fail      to 

segment.  Thus,  only  programs  which  are  sequential  in  nature 
are    suitable  for  the    system. 
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kTiczh<=T  related  problem  is  tha-  -he  smaller  the  m^inory, 
the  more  segmentation  breaks  will  occur  in  the  code.  The 
more  segmentation  breaks,  the  more  card  reads  will  be 
required  to  achieve  a  successful  program  execution.  Often, 
a  problem  will  arise  with  the  card  reader  of  the  calculator. 
Like  any  piece  of  equipment  with  a  moror  and  magnetic  tape 
head,  it  is  fairly  sensitive  and  prone  to  failure.  If  the 
card  reader  fails  just  once  in  the  execution  sequence,  then 
there  is  a  high  probability  that  the  program  will  fail  to 
terminate  successfully.  The  minimization  of  magnetic  card 
reads  is  desirable  for  this  reason  as  well  as  f'jr  reduction 
of   user   thrashing. 

Another  restriction  occurs  in  the  language  subset. 
Arrays  were  not  implemented  in  the  first  prototype  design. 
This  limitation  impacts  directly  on  the  types  of  programs 
which    can    be  developed   for    and   translated    by    BAX59. 

Arrays   are    used    primarily      for  iterative    work.         Without 


arrays,        iterative    work,         while   still      possible. 


very 


limited.  Much  computer  power  lies  in  the  ability  to  execute 
iteration  rapidly.  As  noted  in  preceeding  paragraphs,  this 
limitation  occurs  as  a  result  of  the  small  memory  capacity 
of  the  machine.  Because  of  this,  it  is  felt  that  the  imple- 
mentation of  arrays  should  occur  when  the  prototype  is 
matched  with  a  mere  capable  calculator. 

We  have  suggested  major  limitations   of  the  system  as  it 


currently  stands. 


For  these  reasons   it  is  felt 


;na' 


the 


system  should  be  viewed  only  as  a  first  working  prototype. 
However,  we  feel  that  this  prototype  successfully  iemcn- 
strates  the  concept  that  the  power  and  efficiency  of 
calculator  programming  can  be  greatly  extended  through 
higher   level  language   programming. 
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C.       EICCMMENDATIONS 

If  zhe  concept  of  BAX59  is  useful,  then  the  next  logical 
step  is  to  develop  the  second  prototype.  The  second  proto- 
type should  not  ts  hindered  by  the  currant  ri-59's 
limitations.  Otherwise,  the  next  machine  should  be  a  more 
practical  one,  allowing  easy  hand  held  calculator  program- 
ming. Many  firms  now  market  machines  which  have  built-in 
BASIC   language    interpreters. 

1 .      HarJi^£^   Related   Su gges-icns 

In  order  to  avoid  i:he  major  resxricxion,  namely 
memory,  the  BAX59  system  must  target  a  larger  capacity 
calculator.  This      calculator      should      have      about      10,000 

program  steps  and  approximatly  400  to  500  storage  registers. 
A  memory  partitioning  capability  should  be  available  to 
maximize   memory    usage. 

As  a  follow  en  to  increased  memory  capacity,  the 
next  prototype  should  have  a  hardware  device  available  which 
will  enable  the  host  computer  xo  download  the  generated 
calculator  program  into  the  target  machine.  This  would 
eliminate  hand  punching  program  steps,  which  would  be  be 
prohibitive   on   a   calculator    program   of    10,000   or    more   steps. 

The  linker  algorithm  examines  the  dynamic  structure 
of  the  program  to  facilitate  segmenting  the  program.  This 
alogorithm  segments  seguential  code  that  is  not  covered  by  a 
back  loop.  It  may  be  possible  to  use  this  algorithm  in  the 
development  of  a  single  page  swapping  mechanism/system  for  a 
small  micrccomputer.  The  purpose  of  the  algorithm  in  such  a 
system  would  be  to  segment  a  program  too  large  for  the 
ffiicr ccomputer,  in  such  a  manner  so  as  to  minimize  the  number 
of  single  page  swaps  with  the  system* s  disk  storage  unit. 
Such  a  system  might  be  desirable  for  a  small  microcomputer 
in   which    memory    is    a    problem. 
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2-      ALL^I  IrnPlemgntatio  n 

A  very  useful  sxtsnsion  of  the  language  subset  would 
te  the  inclusion  of  arrays.  Coupled  wixh  memory  expansion, 
the  capability  -co  prccess  arrays  would  make  it  possible  to 
do   mere   iterative   pr cgramming. 

A  simple  but  costly  implementation  of  single  dimen- 
sional arrays  is,  perhaps,  the  most  feasible  approach.  For 
each  array  declared,  three  registers  will  be  required  to 
store      indexing    and      access    information.  Call    the      WEASIC 

record  fields  which  will  store  the  assigned  register  numbers 
EASE,  HOLD,  and  CALL.  BASE  stores  the  number  of  the  array 
base  register  (array  index  0) .  During  assignment  statement 
translation,  HOLD  stores  the  index  for  an  array  identifier 
en  the  left  hand  side  of  the  assignment  statement  equal 
sign.  CALL     stores     the    index      of      any      array      identifier 

currently  being  evaluated  in  simple  expression.  Of  course, 
registers  will  be  necessary  for  storage  of  the  array  itself. 
The  simplest  technique  is  to  require  that  all  array  index 
ranges  start  at  zero.  Additionally,  there  will  be  no  run- 
time checking  of  range  limits.  with  the  foregoing 
restrictions,  estimated  TI-59  program  step  requirements  for 
translation  of  even  simple  assignments  involving  single 
dimensional  arrays  are  very  high.  Evaluation  of  one  array 
reference  such  as  "  A  (X)  "  translates  to  13  program  steps. 
The  assignment  statement  "A(X)=A(Y)"  translates  to  26  steps. 
A  more  ccmplex  reference  such  as  "A(A(X))"  requires  about  24 
steps.  Together  with  the  number  of  registers  needed  to 
store  values  and  access  data,  usage  of  calculator  memory  may 
rapidly   approach   capacity   levels    with   array   manipulation. 

Particular  array  values  are  accessed  with  the  IND 
(indirect)  instruction.  Cur  basic  strategy  is  to  add  the 
evaluated  array  subscript  to  the  register  number  in  EASE, 
and      store      it         in      HOLD       (for      left         side      of      assignment 
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statements)  or  CALL  (for  all  others)  .  Whan  a  value  is  to  be 
assigned  to  an  array  elemen-  on  -he  lef-  of  an  assigr.iient 
statement,  then  the  right  side  is  evaluated  and  "S10  IND" 
HOLD  stores  the  value  at  the  correct  location.  If  i-  is 
only  necessary  to  evaluate  an  array  iuem  within  an  expres- 
sion, then  "RCL  IND"  CALL  recalls  the  value  of  the 
appropriate  item.  Mere  efficient  translation  schemes  might 
be  possible;  however,  our  technique  has  been  tesred  on  the 
TI-59   calculator,    and    works    well. 

The  most  difficult  aspect  of  implementaxion  is  the 
the  task  of  Listalling  the  translation  scheme  and  a  parsing 
scheme.  Fortunately,  the  BASIC  language  requires  explicit 
array  declarations  using  the  DIM  statement.  Procedure  PDIM 
must  be  written  to  parse  these  declarations,  create  symbol 
table  entries,  and  make  register  assignments.  The  SLCTECD 
record  would  need  an  additional  variant  tag  type  for  array 
types,  call  it  AR"RIC.  A  slot  with  this  tag  would  carry 
fields  ESSE,  HOLD,  and  CALL  in  i-s  variLan-  part.  Finally, 
we  would  have  zo  adjust  the  simpla  expression  parsing  and 
code  generating  procedures  PEXPR  and  PPRIMARY  so  that  they 
could  recognize  array  references  and  act  accordingly.  Of 
course,  there  are  other  source  code  adjustments  that  would 
be  necessary  to  fine  tune  the  system.  However,  this  discus- 
sion has  suggested  cur  outline  or  major  steps  involved  in 
array   implementation. 
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APPENDIX    A 
WBASIC    SOBSET    BECOGNIZED    BY    BAX59 


Commacd    E€ssrvad   Words: 


DATA 

DEF 

ELSE 

ELSEIF 

END 

OPTICN 

ENDIF 
ENDLOOF 
FN  END 
FOR 
G03UB 

(special-- 

GOTC 

IF 

INPUT 

LET 

LOOP 

-does  no- 

NEXT 

PAUSE 

PRINT 

QUIT 

READ 

follow  W 

REM 

RESTORE 

RETURN 

STOP 

UNTIL 

WHILE 

BASIC  syntax) 

SilE^linier tal  R 1  sjrva d   Words  : 


NCT 

<> 

< 

♦ 

STEP 

<  = 

> 

- 

THEN 

>  = 

= 

* 

TC 

*« 

I 

• 

/ 

(special — recognized    by    scanner   direcily) 
(special — recognized    by    scanner   directly) 


HiiiJ^lJBJii^i^   Reserved   Words: 


CHAIN 

CLOSE 

DIM 

ENDGUE3S 

GUESS 


LINFCT 

LOCK 

MAT 

ON 

OPEN 


RANDOillZ 

REMOVE 

RENAME 

RESUME 

SCRATCH 


SLEEP 
SORT 
TAGSORT 
UNLOCK 

USE 


OPTICN   (special — syntax  of  WBASIC  not  implemented) 


AND 
# 


OR 
$ 
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Descr i£t icn    cf    Ccmmand  Reserved    Words ; 

DATA:    Create  an    internal    data    list    (399    READ,    RESTORZ) 
EATA   <int9g5r  I  r€al>    (,    <in~9ger  |  r9al>} 

DEF:    Eefine   a  single   or   multi-line   function    (see    FNEND) . 

=   <expr> 

me^   [_  (<vpar anie-er-iisx>>)  j 
.y       ' 


sinals    line:    DEF   <fn_naine>  [  {<paraffleter-list>)  ] 
niuiti-^line    :    DEF   <fn   name>   r  (<paranieter-list>)  j 

...body    of   definition 


FNENC 

ELSE:  Indicate  instructions  to  execute  if  no  IF/SLSEIF 

conditions  were  satisfied  (see  IF,  ELSEIF,  ENDIF)  . 

ELSE 


ELSSIf':    Cause   execution   of    a   number    of    statements    depending 
en    the    given    condition    (see    IF,    ELSE,    ENDIF). 

ELSEIF    <boolean-€xpr> 

END:    Mark   the  end-of -source    in   the   program    (last    line). 
END 

ENDIF:    Indicate     the    end   of    an   IF-ELSEIF-SLSE   structure 
(see    IF,     ELSEIF,    ELSE)  . 

ENDIF 

ENDLCCP:    Mark  the   end   of   a    loop    (see    UNTIL,    WHILE,    LOOP). 
ENCICCE 

FNEND:    Mark   the    end    of  a    function   definition    (see    DEF) . 
PNENE 

FOR:    Mark   the   start    cf  a    loop    (see    NEXT)  . 

FOR   <fcr-var>    =    <exor>    TO    <exDr>   [STEP   <^xpr>3 

...statements  to"ex€Cuta    in    loop 
NEXT   <fcr-var> 

GOSCJE:    Transfer    control   to    the   line   specified,    until   a 
RETURN   is   reached    (see    RETURN) I 


GOSUE    <line#> 


(Note:      GO   SU3    is   not    recognized) 


GOTO:    Transfer    ccntrcl  to   the   line  specified    (see    ON). 

GOTO    <line#>  (Note:      GO    TO      is   not    recognized) 
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IF:     (1)    Cause  transfer  of   ccntrol   to    either   of  two 

statements    or   QUIT    a   loop    ispendinq   on   a    condi-icn. 

IF    <toclean-€xpr>   TH2N    <lin9#>|QmT    fELSE   <lin  =  #>  |  QUIT  1 
NOTE:      This  is   an    exception    -o    WEASIC    which 

allows   any    single  statement   after   THEN 
and/or    ELSE. 

(2)     Cause   execution   of    either   of    a    group   of 
statements    depending   on   a  condition 
(see   ELSE,    EISEIF,     2NDIF)  . 

IF   <toclean-exDr> 

...statements   to    execute    if    expression   TRUE 
[ELSEIF  <boolean-expr> 

...statements  to    execute    if    2nd    expression    TEUE  l 
[ELSE 

. . .  Stat  eaient  s  to    execute    ir    none   are   TRQE] 
ENDIF 

INPUT:    Transmit    data    from   the   terminal   to    a   number   of 

variables    (see   PRINT).      No   variables    stops    execution. 

INPUT    [<expr>    {,   <expr>}  ] 

LET:    Assign    the    value   cf   an    expression   zo    a   variable. 
[LEI  ]   <var>  =    <expr> 

LOOP:    Mark   the    beginning   of    a    Icop 
(see    WHILE,    ENCIOOP,     UNTIL). 

lOCE 

...Statements   to   execute    m    loop 
FNDICOE 

NEXT:    .^ark    the    end    of  a    FOR    loop    (see    FOR)  . 

FOR   <fcr-var>    =    ... 

...statements   to   execute    m    Iood 
NEXT   <for-var> 

PAUSE:    Suspend    execution    of    the    program. 
PAUSE 

PRINT:    Transfer    a   series   of    values   to    printer   or   disiDlay. 

If   no   expression   is    found,    a    line    space   will   result. 
(see   OPTION) 

PRINT    [<expr>    (,   <expr>}  ] 

CUIT:    Leave    the    current    block    (WHILE,    UNTIL,    LOOP). 
CUIT 

READ:    Transfer    data    from   the   list   of    items    specified   in   DATA 
statements    (see   DATA,    RESTORE) . 

READ    <variable>     {,    <variable>} 
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HEM:    Indicate   -hat.    the   line    is   a    comineat.      Th(=   exclamatiDn 
character     (!)     may   also    be    used   to    indicate   a    ccmment. 

BSM    [<ccniinent>  ] 

HESTCEE:    Cause    the    next    READ   statement   zo    get    data    values 
starting   at    the   first    item    in   the    DATA    list 
(see   READ,     DATA)  . 

EESTCEE 

BETURN:  Transfer  ccntrcl  to  the  statement  following  the  last 
GCSUB  executed  (see  GOSUB). 

EETDRN 

STOP:  Terminate  program  execution. 
STOP 

UNTIL:  Mark  the  end  of  a  loop  to  be  executed  until  the  given 
ccndition  is  true  (see  WHILE,  LOOP,  ENDLOOP) . 

LCCP 

...statements  to   execute    m    loop 
UNTIL    <tool  ean-expr  > 

WHILE:    Mark    the    beginning   of   a    loop    to    be    executed    until   the 
given  conditicn  is   no   longer   true 
(see    LOOP,    ENCLOOP,     UNTIL). 

WHILE    <toolean-expr> 

...statements   to   execute    in    loop 
ENDLCCP 

OPTION:    Set/reset    boclean  toggles   within   BAX59   to   ccntrcl 

aeneraticn    of   output    files. 

CAUTION:       This    is'no-    the    "^'BASIC    OPTION! 

This   OPTION    should    be    used    only    after 
a    correct    WEASIC   program    has   been 
constructed    and   is    ready    fcr   translation, 

OPTION    <opt-parm>    {<cpt-parm>} 

where  <cpt-parm>    (option    parameter)     is 
an    int-eger   range  -8;. +8; 
sign  indicates    the    direction   of    toggle: 
positive    =   true/on,    negative  =    false/cff; 
sign  is  assumed    positive    if   omitted. 

Default 

0  =    generate    linker    interface    file false 

1  =   generate    cede   for   PC-100    orinter true 

2  =   cprimize    cut   unnecessary    parentheses true 

3  =   optimize    cut   unnecessary    nOP's true 

U   =   translated   TI-59    code   *o   list    file true 

5  =  contents    of  symbol    table    to   list    file false 

6  =  contents    cf  code    structure   to   list   file... false 

7  =  each    lexical    token    to    terminal false 

8  =  each    lexical   token   to    list    file false 
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Dgscrip'icn    of    S  up pigmental    Reserved    Words : 

NOT:         Negate  a    fcoolean    expression    (see    IF,    WHILE,    UNTIL). 
NOT   <tcclean-expr> 

STEP:      Dssianate   the    increment    (decrement)    value    of    a   FOR 
variable     (see    FOR).  (default    =   +1) 

FOE   <for-var>   =    <expr>    TO   <expr>   STEP   <expr> 

THEN:      Mark   the    beginning   of   the   true   branch   of   a    line- 
oriented    IF    statement    (see   IF) . 

IF    <toolean-expr>  THEN    <line#>iQUIT    [ELSE  <line#> | QUIT  ] 

TO:  Mark   the    expression    which   represents  the    limiting 

value  of    a   tor-variable    (see   FOR) 

FOE   <for-var>    =    <expr>    TO   <expr>   [STEP   <^xpr>] 

Symbcls   a r d   Ope  ratorg : 

<>  net   equal  *  addition 

<=  less    than    cr  equal                      -  subtraction 

>=  greater   than  or  equal               *  multiplication 

**  raise    to    the  power                     /  division 

<  less    than  (  open   expression 

>  aieater   than  )  close   expression 

=  equal  ,  list    item    separator 

!  end  of   line   cmt  .  decimal    point 

Sjpecial   Characters: 

_  _  "['"ic "Preserved    words--recognized    directly    within 

the   scanner  without    reference   to   the    R«    table) 

&  Signifies   that   the  current   line   is   continued    on    the 

next    line  or    is   a   continuation    of   the    last    line. 

00120    F.EM    This    comment    is   to   long    for    one   line,    so    it   S 
C0130    £  must   be    continued   on   the    next    line. 

_  Underscore;    used    within    variable    identifier    names   to 

"  assist   in   readability;    also   ased    to    desianate   a    user 

defined    function   identifier. 

LET    FINAL    SUM    VALUE    =     FIRST    VALUE    +    SECOND    VALUE 
EEF    FN    FACTORTAI... 
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Euilt-in    Functions: 


AES 

ATN 

CSC 

IP 

PI 

SIN 

ACCS 

COS 

ZXF 

LOG 

RND 

SQR 

ASIN 

COT 

FP 

LOG10 

SEC 

TAN 

ABS:         Returns    the    acsclute    value    (magnitude)    cf    parameter 
AES(x) 

ACQS:      Returns    the    arccosine    (in   radians)    cf    parameter 
ACCS  (X) 

ASIN:      Returns    the    arcsine     (in    radians)    of    parameter 
ASIN  (X) 

ATN:         Raturns    the    arctanaent    (in   radians)     of    oarameter 
ATN(x) 

COT:         Returns    the    cotangent  of   parameter   angle    in    radians 
CCT(x) 

CSC:         Returns    the    ccsecant    of   parameter   angle  in    radians 
CSC(x) 

EXP:         RcTurns    the    value    of    5    raised    zo   the   oower    x 
EXP(x) 

FP:  Returns    the    fractional    part   and  sign  of   oarameter 

FF(x) 

IP:  Returns    the    integer    par*   and   sign   of   real    parameter 

IE(x) 

LOG:         Returns    the    natural    logarithm     (base    e)    of    parameter 
ICG(x) 

LOG10:    Returns    the    lcgarit.hm    (base    10)    of    parameter 
LCGIO(X) 

PI:  Returns    the    value    of    the   constant    oi 

(pi    =   3.141593    WBASIC   ==>    pi    =    3.14  159  26535  9    TI-59) 

F  i 

RND:         Returns    a    oss udo-ran dcm    number    in    the   range    (0.1) 
HNE(X) 

SEC:         Returns    the    secant  of   parameter   angle   in   radians 
SEC(X) 

SIN:         Returns    the    sine    of    uarame~er    angle    in   radians 
SIN(x) 

SQR:         Returns    the    sguare  root   of   oarameter 
SC5(x) 

TAN:         Returns    the    tangent    of    parameter   angle    in    radians 
TAN (X) 
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APPENDIX    B 
CONDENSED    BAX59    USEE'S    GUIDE 

This  guide  is  intended  to  be  a  useful  compendium  of 
important  points  the  user  should  consider  when  preparing, 
cross-ccmpiling ,  and  lin)cing  a  WBASIC  source  program  wi-:.h 
the  BAX59  system.  Included  are  suggested  programming  •tech- 
niques which  will  optimize  and  improve  resulting  TI-59  code. 
Some  of  the  information  conrainad  m  the  design  document  is 
repeated  here  for  the  sake  of  consistency.  There  are  a  few 
previously  unmentioned  items,  many  of  which  are  essential  to 
successful   use    of  the   system. 

1.  Whether  you  are  translating  a  prewritten  WBASIC  program 
or  one  which  ycu  are  writing  yourself,  review  it  for 
constructs  and  functions  which  are  not  implemented  in 
EAX59.  Use  Appendix  A  as  a  quick  reference  for  this 
purpose.  Finding  and  eliminating  unimplemented  func- 
tions is  mere  important  than  constructs.  BAX59  will 
detect  and  'report  construct  subset  errors,  however, 
uni aplemented  functions  are  assumed  to  be  variable 
identifiers  and  will  be  entered  in  the  symbol  table  as 
such.  An  error  may  or  may  not  be  reported  as  a  result 
cf  faulty  syntax;  this  depends  upon  the  context  of  the 
unimplemented    function. 

2.  Every  line  cf  the  source  program  must  have  a  line 
number,  including  blank  lines.  Every  line  number  must 
be  in  chronological  order  between  00000  and  99999 
exclusive. 

3.  The  end  of  the  source  file  does  not  require  the  END 
statement;  however,  whenever  an  END  statement  is 
encountered,      the  end    of   the     source    program    is  assumed 
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and      translation   hairs.  The    END      statement    will      not 

generate  a  TI-59  program  stop.  If  you  dssir^  that  a 
TI-59  program  halt  gracefully,  you  must  use  the  STOP 
statement (£)    in    the    W3ASIC   sourcs   cods. 

There  is  no  overhead  involved  in  using  blank  lines  or 
comments.  Although  a  NOP  is  generated  for  each,  it  is 
subsequently      optimized   out      during   resolution.  This 

also  allows  unconditional  jumps  to  such  constructs 
without  cause  fcr  concern.  However,  such  practice  is 
not  reccmmended  and  will  hamper  debugging. 
You  are  strongly  urged  to  practice  structured  program- 
ming. While  an  unstructured  program  will  be 
translated,  its  physical  correspondence  to  the  original 
WEASIC  source  cede  is  likely  to  be  less  recognizable. 
Also,  such  a  translation  will  very  probably  confuse  the 
linker.  Ensure  that  your  subroutines  have  only  one 
entry  point  and  one  RETURN,  otherwise  you  will  defi- 
nitely confuse  the  linker!  In  order  to  improve  the 
physical  correspondence  between  source  and  translation, 
you  are  encouraged  to  use  blank  lines  and  ccmments. 
This  will  usually  assist  in  debugging,  if  required. 
The  structured  order  of  WEASIC  program  parts  should  be 
as    fellows: 

A.      OPTION   Statement    (for   3AX59   only) 

3.      DATA/READ   statements 

C.  Main    Body    (including    a    at    least    cny    STOP) 

D.  Function    DEF's    and   Subroutines 

E.  END   statement 

Note:  The  linker  expects  to  find  the  label  repre- 
senting the  mair  body  (LBL  A)  as  the  first  two  TI-59 
keycodes. 

There      is      only      one      type      of      numeric      data:  real. 

Integers  and  reals  are  both  considered  reals  in  the 
TI-59   run-time      environment.        Numeric      entries   without 
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exponent  will  always  fca  rruncated  to  ten  sigr.if icant 
digits.  If  the  entry  contains  an  exponent  or  if  the 
entry  musT:  be  converted  to  exponent  notation  in  crder 
to  maintain  equivalence,  then  only  eight  significant 
digits  will  be  saved  (plus  two  in  the  exponent).  These 
rules  can  have  a  profound  effect  upon  precision  errors 
in   numerical  computations. 

8.  Avcid  proliferaticn  cf  variable  names.  Variable  names 
use  registers,  your  Bost  precious  rescurcel  Whenever 
possible  reuse  variable  names  to  prevent  new  register 
assignments. 

9.  Be  net  forget  to  reserve  registers  for  your  own 
requirements.  The  "long"  function  facility  always 
requires  one  in  the  range  10-99.  The  linker  always 
requires  two  in  the  range  00-09.  An  additional  twc  per 
segment  in  the  range  10-99  will  be  taken  dynamically 
by  the  linker  after  the  cross-compiler  has  made  ail  its 
assignments.  The  interface  information  is  passed 
through  the  SCFATCH  file.  Never  reserve  the  last 
available  register,  c*herwise  a  memory  overflow  will 
nev?r   be  reported  in  a    warning    message. 

10.  Optimize  expressions  using  the  standard  rules  cf  cper- 
atci  precedence.  Failure  to  do  so  may  result  in 
unnecessary   generation    of    parentheses, 

11.  Avcid  use  of  the  STEP  option  in  FOR  loops.  Fely  on  the 
default  increment    (+1)     whenever    possible. 

12.  If  a  user-defined  function  is  to  be  applied  for  its 
side  effects  only,  then  use  one  variable  name  tc  invoke 
all    such   functicn  calls.      For   example: 

00120     INVOKE   =    FN^ALPHA 
00130    INVOKE   =    FN_BETA(X,Y) 
0  01U0     INVOKE   =    FN_GAMflA 

13.  Although  contrary  to  principles  of  good  structured 
programming,         do        not      pass      any        parameters      unless 


107 


absclutely  necessary.  Parameter  passing  uses  a  great 
deal      cf   prcgram     steps.  Furthermore,      since      actual 

parameters  may  fce  simple  expressions,  nesting  cf  paren- 
theses can  beccme  arbitrarily  deep  very  quickly  in  a 
function  call.  The  TI-59  places  a  limit  of  nine  en  the 
depth   cf   parentheses  nests. 

14.  Beraember  that  the  TI-59  allows  subroutine  (SBR)  nesting 
to  a  maximum  of  six  levels.  This  restricts  the  depth 
cf  recursion.  However,  if  the  recursive  call  always 
returns  to  the  same  address.  The  recursion  will  prob- 
ably wcrk.  This  is  because  the  subroutine  return  stack 
will  always  maintain  the  correct  return  address,  even 
if    it   overflows. 

15.  EAX59  distinguishes  between  upper  and  lower  case  char- 
acters in  variable  identifiers.  Exceptions  are  the  "E" 
in  an  exponent,  the  "FN_"  preface  of  a  function,  and 
reserved  words.  Built-in  functions  must  be  written  as 
thsy  appear  in  the  BIFNQF  or  BIFNLF  files  (currently, 
all   upper    case)  . 

16.  WBASIC  trignometric  functions  compute  in  radians.  By 
default,  TI-59  trignometric  functions  compute  in 
degrees.  If  trignometric  functions  are  translated, 
then  prior  to  execution  the  TI-59  must  be  reset  tc  the 
radian   mode    by    entering   "2ND  3. AD." 

17.  If  ycu  plan  to  modify  TI-59  code  that  has  been  gener- 
ated by  BAX59,  remember  that  only  subroutines  have 
relative  addresses.  All  other  addresses  are  absolute 
justified.  Cede  insertions  or  deletions  dc  not 
rejustify  absolute  addresses!  Unless  you  are  familiar 
enough  with  the  calculator  to  know  what  you  are  doing, 
you   will  create    more   problems  than    you   fix, 

18.  The  special  construct,  PAUSE,  is  provided  for 
assistance  in  debugging.  This  is  somewhat  like  a 
message  to    the      compiler.         It   translates  to      the   TI-59 
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keyccdes  82  and  31,  which  ar=  a  void  k=y  and  ths  "L2N" 
key.  Thess  keycodes  cannox  be  entered  directly  into 
the  calculaxor.  Instead,  enter  "STO  31"  followed  by 
the  editing  sequence  "3ST  BST  NOP  SST."  The  original 
"STC  31"  will  have  been  changed  xo  "NOP  31."  When 
encountered  during  run-rime,  these  keys  will  interrupt 
execution  and  cause  the  calcula-or  to  enter  its  Learn 
Mode.  Other  than  stopping  execution,  no  other  harmful 
effects  result.  To  resume  processing,  simply  hit  "LRN" 
tc  show  the  conxents  of  the  current  display  register, 
and      "E/S"      to      continue        execuxion.  This      facility 

provides  a  convenient  method  of  process  suspension 
which  corresponds  physically  and  logically  to  the 
HEASIC    source    cede. 

19.  The  BAX59  CPTICN  statement  may  provide  other  useful 
facilities  for  debugging.  However,  most  of  these  were 
designed  for  debugging  during  installation  of 
enhancementi  tc  the  3AX59  Cross-compiler  Beware  of 
CPTICN  parameters  6,  7,  and  8.  These  tend  to  produce  a 
great    deal    of    output! 

20.  The  EAX59  system  will  no-  execute  properly  unless  all 
associated  data  files  are  available  tc  the  host 
operating  system  on  which  BAX59  will  run.  You  may 
modify  the  information  contained  in  them,  however,  you 
should  not  change  the  formats.  (These  files  are 
Appendices    D,    E,   F,    G,    H,    and  J.) 

21.  Eo  not  design  excessively  long  iterative  loops  or  back 
jumps,  the  linker  cannot  handle  them.  If  iteration  is 
required,  design  loops  which  -cranslate  to  back  jumps 
that   are   well    within   the    TI-59    memory    constaints. 

22.  The  key  to  successful  use  of  the  linker  is  to  break 
very  large  programs  into  smaller  parts  which  can  be 
processed    sequentially    without    much   repetition. 
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APPENDIX    C 
CROSS-COMPILEB    SOURCE    CODE 
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1-59 

GRAM 


H  E 

ERSION 

LOO 

AS 
MANTIC 
RUN 
AT  ION 
UDSS 
ERLY 
ING 
ROSS- 
OR 


i^^t******'i^****^**if****^  *******  ***^**  ******  **il^*-'ii* -if  ^***^ 


* 

*] 

* 

* 
* 

* 

* 
* 

* 

* 
* 
* 
* 
* 
* 
** 


PROGRAM  EAX59 


(INPCT, 
RWTELF. 
OOTFILE, 


OUTPUT, 
LABELF, 
LISTF, 


BASICF, 
CTEXTF, 
NAMEF, 


MSGF, 

BIFNQF, 

READF, 


EIFNLF, 
SCRATCH) 


':«i:ili  Hf  7^4:^****  A**  *******************************  ^***  **********' 

\*  '  *] 

j*  SYSTEM     PARAMETERS  * 

[*  *\ 


*  av*^  ^  *»  ^  «»  ^  ^  ^  ^  ^  ^  ^  ^  ^  -mm  ^   ^  «b  ^  ^  ^  ^  ^  ^  ^  ^  ^^  ^  ^  ^  ^  ^  «•  «b  ^  ^  ^  ^  ^  • 

CONST  DECLARATIONS   (MAIN) 

-* 
* 

* 
* 

tik^ 

(:!e- 

^^ 

:ot 

1ST  RWCHABCT 

= 

270" 

;    (* 

TOTAL  #  OF  CHARS  IN  RW  ARRAY 

*) 

EWWCRDCT 

= 

72 

;    (* 

TOTAL  t  OF  WORDS  IN  RW  ARRAY 

* 

RWLENGCT 

= 

9 

;    (* 

#  OF  CHARS  IN  LONGEST  RW 

* 

MAXTOKLEN 

= 

20, 

(* 

MAX  AC3UM  LENGTH  =>  MAX  TOKEN 

* 

MAXLINLEN 

= 

66 

(* 

MAX  LENGTH  OF  BASIC  TEXT  LINE 

* 

MAXEASLIN 

= 

99999; 

(* 

MAX  BASIC  PROGRAM  LINE  NUMBER 

* 

HASHEASE 

= 

99 

(* 

INDEX  OF  LAST  BUCKET  (0-99) 
1ST  REGISTER  (LOWEST  NUMBER) 

* 

STARTREG 

= 

00' 

(* 

* 

REGEASE 

= 

90; 

(* 

MAX  i    AVAILABLE  REGISTERS 

* 

LBLEASF 

= 

72 

;     * 

MAX  #  OF  AVAILABLE  LABELS 

* 

FNCLEN 
FNILEN 

=: 

t;, 

(* 

MAX  #  STEPS  IN  QUICK  FUNCTION 

* 

= 

15; 

(* 

MAX  #  STEPS  IN   LONG  FUNCTICN 

*' 

FNLREG 

= 

10 

)* 

REG  USED  FOR  FARM  OF  LONG  FNS 

* 

FNSTACKLIM= 

6; 

)* 
I* 

MAX  SBR/FN  NESTING  LEVEL 

* 

TEXTLEN 

= 

20 

MAX  #  CHARS  IN  A  CODE  TEXT  IN 

* 

110 


(*  GLCBAL    DECLARATIONS  *1 

I*  ** 


*-- 
* 

4 

TI-59 

KEY    CODES: 

OTHER    SYIiBOLS  : 

^  ^  ^ 

K    ZERO 

^ 

0 

;              K    EE 

.^ 

52, 

;                BLANK       =    '     '; 

K-1 

= 

1; 

K""0?AaEN 

= 

53 

ENDLIN    =    'a' 

K"2 

= 

2 

;               K"CPAREN 

= 

54 

;               ENDFIL    =    ' %* 

K~3 

= 

3- 

;               K^DIVOP 

= 

55; 

PERIOD    =    •  .  • 

K^a 

= 

U- 

;               K~ENG 

= 

57: 

CO:iMA       =    •  ,'  , 

K-5 

= 

5, 

K'FIX 

= 

53; 

USCORE    =     •     • 

K~6 

= 

6 

;              K~INT 

= 

59 

;               EXCLAM    =    •!•; 

K-7 

= 

7 

;               K~DEG 

= 

60; 

QUOTE       =     »  •  '  «  ; 

K"8 

= 

8 

;               K"GTO 

= 

61  , 

K^S 

= 

9 

;               K"PGMIND 

= 

62 

K~EPR 

= 

10; 

;               K~SXCIND 

= 

63; 

K~A 

= 

1  1 

;               K'PRDIND 

= 

64 

K~E 

= 

12, 

;               K"MULTOP 

= 

o5; 

K"C 

= 

13 

;               K'PAOSE 

s 

56 

K~D 

= 

ia: 

;               K"IFXEQT 

= 

67; 

K"E 

= 

15 

;               K^NO  E 

= 

58 

K'iiFR 

= 

16, 

;              K~0? 

= 

69, 

K'EER 

= 

17 

;               K"RAD 

= 

70 

K"CER 

= 

18; 

K'SBR 

= 

71; 

K~DFR 

= 

19 

K"STCIND 

= 

72, 

K~2CLS 

= 

2  0, 

K~RCIIND 

=: 

73; 

K"INV 

= 

22, 

;               K^SUMIND 

= 

74  , 

K"LNX 

= 

23; 

K~S0BOP 

= 

75; 

K"CE 

= 

24 

;               K'LB  L 

= 

76  , 

K'CLR 

= 

25, 

K~IFXGET 

= 

77; 

K"2INV 

= 

27' 

K~SIGMA 

= 

78, 

K~ICG 

= 

28, 

K'XBAR 

= 

79; 

K"CF 

= 

29< 

;               K"GRAD 

= 

80; 

K-TAN 

= 

3  0; 

K~RST 

= 

81  , 

K"X    T 

= 

32' 

K~GTOIND 

= 

83 

K"X^QE 

= 

33, 

K'OPIND 

= 

34; 

K~SETX 

= 

3a 

;               K"ADDOP 

= 

85, 

K~XINV 

= 

35; 

K""STFLG 

= 

86; 

K^FGM 

= 

36; 

K'lFFLG 

= 

87 

K~E    R 

= 

37, 

K'DMS 

=: 

88; 

K""SlN 

= 

38 

;              K"?I 

= 

39, 

K~CCS 

= 

39; 

K"LIST 

= 

90; 

K-IND 

= 

HO 

;               K~RS • 

= 

91 

K~STC 

= 

42, 

;               K~INVSBR 

= 

92; 

K"RCL 

= 

43 

;               K~DECPT 

= 

93 

K"SU!1 

= 

44, 

;               K"NEG 

=: 

94, 

K"?CWR 

= 

45 

;               K"EQUALS 

= 

9  5 

K~CMS 

= 

47 

;               K"WRITE 

= 

96; 

K"EXC 

= 

48 

;              K"DSZ 

= 

97 

K~F5D 

= 

49 

;               K"ADV 

= 

98 

K'AESX 

= 

50 

;               K"PRT 

= 

99 

11 1 


L- 


ISi!!L^!!i^E55.^-^^    «OST    OFTEN'oaTSIDi'oFMAIN'DHIvii 


EPECRTOK 

CMTCKEXC 

EQaALTOK 

FlUSTCK 

MINUSTOK 

MUITCK 

DIVTCK 

OPAEENTOK 

CFABENTOK 

GTTCK 

LUCK 

COf^MATOK 

EXETOK 

NOTEQTOK 

GT5CTCK 

LIEQTCK 


0 

1 

2 

3 

U 

5 

6 

7 

8 

9 

10 

1  1 

15 

16 

17 

18 


IDENTOK 
NUMBERTOK 
END LINT OK 
ENDFILTOK 


TOTOK      = 

OBTOK 

CMTOKREM   = 
NOTTOK     = 
ANDTOK 
THENTOK    = 
ELSETOK 
QUITTOK 
STEPTOK 
ENDLOOPTOK= 


RWWORDCT  +  1 

RWWORDCT  +  2 

RWWORDCT  ■»•  3 

RWWORDCT  +  4 


20 
21 

24 
28 
30 
33 
3a 
38 
42 
67 
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(*■ 

(* 

I* 
* 


TYPE  DECLAEATIONS  (.^AIN) 


TYPE 


HASIINSNG 

TCKENRNG 

HASHRNG 

ACCPNG 

LBLRNG 

EEGRNG 

KEYENG 

CTEXTRNG 

LNSTEING 
TKSTRING 

LEVEL1 
LEVEL2 
LEVEL3 


=    0, .WAX3ASLIN; 
=    0.  .RWWORDCT    -^    U  ; 
=   0.  .HASH3ASE; 
=   0.  .MAXTOKLEN; 
=    0.  .LBL3ASE    +    1; 
=    0.  .99; 
=   0.  .99: 
=   -2. .99; 


(*  SUBRANGES  *) 


PACKED 
PACKED 

ARRAY 
ARRAY 
ARRAY 


AERAY 
ARRAY 


i: 


0. 
1. 


.^AXLINLEN 
MAXTOKLEN 


) 


1.) 

OF 


OF    CHAR 
CKAR; 


1..RWCHAHCT    +     1.)     OF    CHAR: 
1..EWW0RDCT    ■»•     1.)     OF    INTEGER; 
1..BWLENGCT    •«•    1.)     OF    INTEGER; 


LBLSTACK       =    AERAY     (.LBLENG.)     OF    INTEGER 


WBASIC    READ/DATA    S 


*  DATA    STEUCTUEE    aSFD    FOR 

*  ONE    DATA    ENTRY    CONSISTS     OF    AN    OPTIONAL    SIGN 

*  IS    POSITIVE)      AND     AN    INTEGEB    OR    REAL    NUMBER. 
iiH 


-'"ATEMENTS; 
(DEFAULT 


-*) 


BATAITEM  =  RECCED 
NUMB 
SIGN 

END; 
DATASTORE     =    ARRAY 


:    TKSTRING; 

:    CHAR 

(.  1  ..REGBASE.)     OF 


(*    DATAITEM 
DATAxTEM; 


* 
* 

I* 

1* 
(♦ 

I* 
(* 
(*■ 


DATA    STRUCTURE    WHICH    HOLDS    THE    TEXT    TRANSLATION 
ALL    TI-59    KEY   CODES    READ    FRCM    THE    CTEXTF    FILE; 
UNIT    FIELD    INDICATES    INSTRUCTION    TYPE: 


OF 


0  = 

1  = 

2  = 

3  = 


SINGLE 
2- STEP 

3- STEP 
a- STEP 


STEP    INSTB 
INSTR 

INSTR 
INSTR 


(INDEPENDENT) 

FOLLOWED    5Y    RI.     / , 

FOLLOWED    BY    ABSOLUTE    AbDE) 
FOLLOWED    BY    REG    OR    FLAG    NUMBER 
AND    AN    ABSOLUTE    ADDR) 


COEETEXT    = 


RECCED 
UNIT 
CCDECHAR 


END; 
CTEXTSTORE    =     AERAY 


0..3; 

PACKED     ARRAY 
(.  1.  .TEXTLEN.) 


(.CTEXTRNG.)  OF 


OF  CHAR 
(*  CODETEXT 
CODETEXT; 
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11 

(* 
(* 
(*- 


COCEPCC    IS    A    SINGLE    NODE 
STRUCTURE;    LINSRCD    IS    A 
WEASIC    LINE    NUMBERS   TO    W 
IS    ATTACHED;     THIS    PART    0 
USED    TO    LOCATE    PORTIONS 
CCHRESPGNC   TO    WBASIC    LIN 


IN    THE    TI-59    CODE    DATA 
SINGLE    NODE    IN    THE    CHAIN    0? 
HICH    THE    TI-59    CODS    STRUCTURE 
F    THE    CODE    DATA    STRUCTURE    IS 
CF    TI-59    CODE    WHICH    DIRECTLY 
E    NUMBERS. 


-1 


COCEPTR 
CCEERCD 


aCODERCD 
RECORE 
ADCB 

KEY 
JMEP 
SEQP 
BAKP 
END; 


INTEGER 

INTEGER: 

CODEPTR 

CODEPTR 

CODEPTR 


(*  CODERCD  *) 


LINEPTR  = 
LIKERCD  = 


SLINEFCD; 

RECORE 
LING    ; 
LPTR    : 
CPTR    : 

END; 


BASLINRNG; 

LINEPTR; 

CODEPTR 


(*    LINEFCD    *) 


* 

I* 

* 

* 

I 


SLCTRCES    ARE    SYMBOL   TABLE    SLOTS;     SLOTS    ARE    ATTACHED    TO 
HASH;     HASH    IS    THE    SYMBOL    TABLE    REPRESENTED    AS    A    STATIC 
ARRAY    CF    SLOT    POINTERS;     EACH    SLOT     POINTER    IN    HASH 
REPRESENTS    A    SINGLE    HASH     BUCKET;     EACH    BUCKET    MAY    HAVE 
ANY    NUMBER   OF    SLOTS    ATTACHED    AT    THE    HEAD    POINTER    OF 
EACH    BUCKET     (LIMITED    ONLY    BY    MACHINE    CAPACITY)  , 
SLOTS    MAY   BE    OF    H    CIFFERENT    TYPES:       VARIABLE    IDS, 
LONG    FUNCTION    IDS,    QUICK    FUNCTION     IDS,     AND    PARAMETER 
(OR    PARAMETERLESS)     FUNCTION    IDS. 


IDTYP 

SLCTPTR 

HASH 

QKEYSEQ 

LKEYSEQ 

SLCTRCC 


(VARIC,     FNQID, 
aSLOTRCD; 


FNLID,     FNPID) 


ARRAY 
ARRAY     (.  1 
ARRAY     (.  1. 

RECORD 
IDENT    : 
SLOT      : 
CASE   TYP 
VARID 


FNQID 
5NLID 


HASHRNG.)     OF    SLOTPTR; 


FNPID 


END 


FNQLEN.)     OF 
. FNLIEN.)     OF 

TKSTRING; 
SLOTPTR; 

:    IDTYP   OF 
:      (REGNO 

AUXRSG1 

AUXREG2 
:      (FNQ 
:      (FNL 

FNLLINK 
:      (FNREGNO 

FNP 

LEL 

FNPLINK 


KEYRNG 
KEYRNG 


INTEGER; 

INTEGER; 

INTEGER)  ; 

QKEYSEQ)  ; 

LKSYSEQ; 

SLOTPTR)  ; 

INTEGER; 

SLOTPTR; 

LBLRNG; 

SLOTPTR) 


(*    SLOTRCD    *) 
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(»: 

(^  ^] 

t*                                             VAS    DECLARATIONS     (dAIN)  * 

(*  *1 

^* , *< 

f* *; 

*  CPTICN    TOGGLES    ARE    EOOLEANS    WHICH    CAN    BE    S';<ITCHED    FROM    * 

*  WITHIN    THE    WBASIC    SOURCE     PROGRAM    USING    THE    "OPTION"  * 

*  STATEMENT;    EXCEPT    FOR    ZERO     (LINKER    INTERFACE    TOGGLE) ,       * 

*  THE    RULE    IS    THAT     A    •+•    SETS/RESETS    TOGGLE    TRUE,     WHILE      * 

*  A     •-•     SETS/RESETS    TOGGLE    FALSE;    DEFAULT    VALUES    ARE  * 

*  INCICATEE    IN    THE    COMMENT    FOLLOWING    EACH    DECLARATION.  *1 
fni *| 


VAR 


LINK59 

PC100 

OPTFAR 

CPTNOP 

CCDUMF 

SYCUME 

DSDUMF 

TOKCUT 

TOKIIS 


BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLE  ilN 
BOOLEAN 
BOOLEAN 


* 

OPTION 

0 

= 

FALSE 

* 

* 

OPTION 

1 

= 

TRUE 

* 

* 

OPTION 

2 

= 

TRUE 

* 

* 

OPTION 

3 

= 

TRUE 

* 

* 

OPTION 

a 

= 

TRUE 

♦ 

* 

OPTION 

5 

= 

FALSE 

* 

* 

OPTION 

6 

= 

FALSE 

* 

* 

OPTION 

7 

= 

FALSE 

* 

* 

OPTION 

8 

= 

FALSE 

« 

* 
* 

SETS    USED    IN    VARIOUS    TESTS    FOR    CHARS, 
TI-59    KEY   CODES,     AND    REGISTERS. 

TOKEN    NUMBERS, 

— * 

LETTERS,     DIGITS.    ALFANUM 
DOUBLET,     D0UBLE2 
SPECIALS,     SIGNS 
SUBERRCR,     CRITICAL 
BINCFTOKS,     RELOFTOKS 
TRAILTOKS,    SIGNTOKS 
BEGIN    EXPRTOKS 
NUMERICKEY 
EESEEVE    REG 


SET    OF  CHAR; 

SET    OF  CHAR; 

SET    OF  CHA2; 

SET    0?  CHAR; 

SET    OF  TOKENRNG; 

SET    0?  TOKENRNG; 

SET    OF  TOKENRNG; 

SET    OF  KEYRNG; 

SET    OF  REGRNG; 


RESERVED    WORD    TABLE    CHARACTER    AND     INDEX    ARRAYS 


RWCHAR 
FWWCRE 
RWLENG 


LEVEL1; 
L  EV  EL  2 ; 
LSVEL3; 


it 


SCANNER    ASSOCIATED    GLOBAL    VARIABLES. 


ACCUM 

ACCINX 

LINEUF 

LNBINX 

IINUM, 

TCKNUM, 

LCCUNT, 

FLAGCKT 


LLINUM, 
LTCKNUM 
RCOUNT, 


CLINUM 
ECOUNT 


TKSTRING; 

ACCRNG; 

LN STRING; 

0.  .MAXLINLEN 

3ASLINRNG; 

TOKENRNG; 

INTEGER; 

BOOLEAN; 
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(*■ 


PABSE    ASSOCIATED    GLOBAL    VARIABLES 


-* 

^ 

-* 


ERRCRCT,  WARNCT 

NEXTREG 

LELCT 

RESERVECT 

CTEXT 
DATALIST 
EATAIX.  READIX 
INDEXERROR 
FISSTREAD 


INTEGER; 
INTEGER; 
LBLRNG; 
REG  RNG; 

CTEXTSTORE; 
DATASTORS: 
1.  .  RSGBASE; 
BOOLEAN; 
BOOLEAN; 


CLABEL  :  LBLSTACK 

BUCKET  ;  HASH: 

IDSIOT  :  SLOTPTR; 

It.    LPCUa  :  LIN2PTR; 

LPLEAD,  LPTRAIL  :  LINEPTR; 

CP,  CPCJR  :  CODEPTR; 

FIRSTLP,  LASTLP  :  LINEPTH; 

EEGINCP,  ENDCP  :  CODEPTR; 

FNSTACK,  FNLLIST  :  SLOTPTR; 

FNSTACKCT  :  INTEGER; 

IFSTACK,  ENDIFSTACK  :  CODEPTR; 

LOCFSTACK,  ENDLCOPSTACK  :  CODEPTR; 

FGRSTACK,  NEXTSTACK  ;  CODEPTR; 


MARKERS  *' 
MARKERS  *1 


-* 

* 


FILES 


RWTELF, 

EIFNQF, 

BASICF, 

LISTF. 

OUTFIIE 

SCRATCH 


LABELF,    CTEXTF 

BIFNLF 

MSGF 

NAMEF,     RSADF 


:    TEXT; 

:    TEXT, 

:    TEXT 

:    TEXT; 

:    TEXT 

:    TEXT- 

INITIAL    FILES  *] 

BUILT-IN    FNS  * 

INPUT    FILES  * 

OUTPUT    FILES  * 

TERMINAL    FILE  * 

LINKER    INTERFACE  * 
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*  PRIMITIVE    CHAR    ROUTINES  *1 

>3jc*#*:»:<i:»:«i**«««*  ********************************************  I 

(*-0  1 * 

*  UFCASE  CONVERTS  ANY  LOWER  CASE  EBCDIC  (OR  ASCII)  CHAR  *1 
\*  TC  UPPER  CASE  EQUIVALENT.  *\ 
Mc *' 


FUNCTICN    UPCASE     (VAP    CH    :    CHAR)     :    CHAR; 

BEGIN 

IF    CH    IN     (.»  a«  ..  •  i'.)    THEN 

OPCASE    :=   CHR(ORD(CH)     -    ORD(«aM      +    ORD(»A»)) 
ELSE    IF    CH    IN     (.M«..'r'.)     THEN 

UPCASE     :=   CHE(ORC(CH)     -    ORD('j')      +    ORD(»J')) 
ELSE    IF    CH   IN     (.'3'..'z'.)     THEN 

UPCASE    :=    CHfl(ORE(CH)    -    OKD('s')     +    ORD(»S' 


ELSE 

UPCASE    :=   CH 
END; 


CS')) 


(*    UPPERCASE    *) 

^:ffi:^i^  :^  i^  i^  :^i  :^  it  if  t  ****  ^*  **  **^^***  if*^*******'^***^**^  *********  ^* 

i:^— A  O--— —  —  — —  —  — —  —  —  — —  —  —  »— «-.  — ^_  —__..____———_  —  _—_.. ._.^... _  —  — —  —*\ 
*    TRANSCIGIT    RETURNS    THE    INTEGER    VALUE    FOR    NUMERIC    CHARS    * 
* *) 

FUNCTICN    TRANSDIGIT     (CH    :    CHAR)     :    INTEGER; 

BEGIN 

TRANSDIGIT    :=    ORD     (CH)     -    CRD     ('0') 
END;  (*    TRANSDIGIT    *) 

^** ****************************************** «***********«*) 

(*-0  3 *) 

(*    XNUMBEE    RETURNS     INTEGER     VALUE    OF    A    NUMERIC    CHAR    STRING    * 

^* :^J 

FUNCTION    XNUMBER     (ACCOM: TKS TRING ;     ACCINX : ACCHNG)     :     INTEGER; 
VAR         I,    TEMPNR     :    INTEGER; 

BEGIN 

TEMPNR     :=    0; 

FOR    I     :=    1    TO    ACCINX    DO 

TEMPNR     :=    TEMPNR    *    10    +    TRANSDIGIT     ( ACCUM  (.  I . )  )  ; 

XNUMBER    :=   TEMPNR 
END;  (*    XNUMBER    *) 


117 


(*>0  4 *) 

j*    ZEEOPAD    WRITES    INTEGERS    TO    AN    OUTFILE    WITH    LEADING    O'S    *J 

EROCEEURE    ZEROPAC    (VAB    WFILE    :    TEXT;     N,     ZCT    :    INTEGER) ; 

VAR       I,    TN    :    INTEGER; 

BEGIN 

TN    :=    N; 
REPEAT 

TN    :=    TN   DIV    10 ; 

ZCT     :=    ZCT    -    1 
UNTIL    TN    =   0; 
FOR    I     :=    1    TO    ZCT    DO 

WRITE    iWFILE  ,    '0  »)  ; 
IF     N    >=    0    THEN 

WRITE     (WFILE,    N:  1) 
SLS  E 

WRITE  (WFILE,  -N:  1,  •-«  ) 
END;  (*  ZEROPAD  *) 
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}*  SCANNER  * 

(*  * 

^******«* ♦*«****«****♦****«♦***********♦*********♦« *««*****) 

r*-0  5 '* 

I*    SCAN    OSES   THE    RESEEVED    HOED    ARRAYS    TO    ISOLATE    AND  * 

(*    RETURN    SINGLE    TOKENS    FROM    THE    WBASIC    SOURCE    FILE;  * 

I*    IT    ALSC    REWRITES    THE    SOURCE    CODS    TO    THE    LISTF    FILE  * 

(*    ALONG    RITH    ANY    SCANNER    DETECTED    ERRORS;     SCAN    INSERTS  * 

(*    ITS    CtiN    END-OF-LINE    AND    END-OF-FILE    CONTROL    CHARACTERS  * 

(*    INTO    ITS    LINE    BUFIER     (LINBUF)     A3    THESE    CHARS    ARE  * 

(*    DETECTED    IN    THE    SCURCE    FILE.  * 

PROCEDURE    SCAN     (VAR     ICKNUM     ;    TCKENRNG) ; 

7AR         TCHAR    :    CHAR; 

I  :    INTEGEB; 

(*=  =  =  =  =  =  =  =  =  =  =  =  =  ==  =  =  =  ========  =  ==  ===  =  =  =  =  ===  =  =====  =  =  =  =======*) 

1*    LINENE    RETURNS    NUMEER    OP    THE    CURRENTLY    SCANNED    WBASIC      * 
(*    LINE;     WRITES    THE    LINE    NUMBER    TO   THE    LISTF    FILE  *] 

*  PAEDEE    WITH    ZEROS.  * 
I* «' 

FUNCTION    LINENR     ;    BASLINRNG; 
VAR    I    :    EASLINRNG; 

BEGIN 

REAE     (EASICF,     I)  ; 

ZERCPAD     (LISTF,    1,5); 

LINENR     :=    I 
END;  (*    LINENR    *) 

(* ^) 

\*  RDLINE  READS  TEXT  IMMEDIATELY  FOLLOWING  LINE  NUMBER;  *' 

*  RETURNS  THE  TEXT  IN  A  MAXLINLEN  CHAR  BUFFER;  UNUSED  *\ 

*  PORTION  CF  BUFFER  IS  FILLED  WITH  BLANKS;  WRITES  EACH  * 

*  CHAR  CF  TEXT  TO  THE  LISTF  FILE  AS  IT  IS  READ;  REPORTS  * 

*  AN  ERROR  IF  NUMBER  OF  CHARS  EXCEEDS  MAXLINLEN.  *\ 
[* *' 

FUNCTION  EELINE  ;  LNSTRING; 

VAR  I,  J,  LINLENGTH  :  INTEGER; 
CH  :  CHAR; 

BEGIN 
I  •  =  0  • 

WHILE  '(NOT  (EOLN(BASICF))  )  AND  (I  <  MAXLINLEN)  DO 
BEGIN 

I  :=  I  +  1  ; 
REAE  (EASICF,  CH)  ; 
RDLINE  (.1.  )  :=  CH; 
WRITE  (LISTF,  CH) 
END: 
WEITELN  (LISTF); 
LINLENGTH  :=  I; 
LN  BINX  *  =  0' 

IF  LINLENGTH  <  MAXLINLEN  THEN   (*  FILL  UNUSED  W/  BLANKS  *) 
FOR  J  :=  LINLENGTH  +  1  TO  MAXLINLEN  DO 
RDLINE(,J.)  :=  ELANK; 
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SCAN    ERROR LENGTH    OF    TEXT    '); 

LINUM    >     •  ,MAXLINLEN:2,«     CHARS'); 

1; 

OCATE    THE    EOLN    CHAR    TO    RECOVER    *) 


IF     (LINLENGTH    =    MAXLINLSN)     AND     (NOT    20LN  (BASICF)  )     THEN 
BEGIN 

WRITE  (LISTF,»**F** 

WRITEIN    (LISTF, 'AFTER 
ERECECT    :=    ERRORCT    + 
REPEAT  (*    L 

GET     (BASICF) 
UNTIL    EOL 
END; 
RDLINE  (.LINLENGTH     +    1.)     : 
GET     rEASICF)  •  (*    MOVE 

IF    EOF(EASICF)     THEN 

RDLINE  (.LINLENGTH    +    1.) 
END; 


,N  (BASICF) 


=    ENDLIN;        (*    INSERT    EOLN    CHAR 

FILE    PTR    PAST    PASCAL    EOLN    CHAR 

(*    OVERWRITE    EOLN    CHAR    IF    EOF 


:=    ENDFIL 


(*    RDLINE    *) 


V 


*) 

NON-BLANK    CHAR    STARTING    WITH      *1 

CED    BY    THE    LINBUF    INDEX.  *' 

*' 


(*-0  5-0  3 

(*    GETNOEIANK    RETURNS    FIRST 

(*    THE    CURRENT    CHAR     BEFEREN 
(« 


FUNCTION    GETNOBLANK 


CHAR; 


BEGIN 

MHIIS    LINEUF  (.LNBINX.)     = 
INBINX    :=    LNBINX    -«•    1  ; 

GETNOBLANK    :=     LINBUF(.LNB 
END; 


BLANK    DO 
INX.) 


(* 

*  GETCHAR    RETURNS    THE   CHAR 

*  ANE    INCREMENTS    THE    LINE 

He 


(*  GETNOBLANK  *) 
*) 


FOLLOWING  LINE  BUFFER  INDEX    * 

BUFFER  INDEX.  * 
« 


FUNCTION  GETCHAR 


CHAR; 


BEGIN 

LNBINX    :=    LNBINX    +     1; 

GETCHAB     :=    LINEUF  (.LNBINX 
END; 


(' 


(*    GETCHAR    *) 
*) 


(*-0  5-0  5 

(*    FUTCHAR    INCREMENTS    THE    A 

(*    INTO    THAT    POSITION    IN    TH 
(« 


CCUM    INDEX    AND    PLACES     A    CHAR         *' 

£    ACCUM    ARRAY.  * 
*< 


B)  ; 


PROCEDURE    PUTCHAR     (CH    :    CHA 

(ACCINX    >=     MAXTOKLEN)     THEN 


BEGIN 
IF    NOT 
BEGIN 

ACCINX    :--    ACCINX   +    1  ; 
ACCUM  (.ACCINX.  )     :=    CH 
END 
END; 


(*■ 


{■*    PUTCHAR    *) 
4c\ 
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*  PUIANDGET    PUTS    A    CURRENT    CHAR    TATO    ACCUM    AND    GETS    THE      *' 

*  NEXT    CHAR    FROM   THE    LINE    BUFFER.  * 

|:«c . * 

FUNCTION    FUTANDGET     (CH    :    CHAR)      :    CHAR; 

EEGIN 

PUTCHAR  (CH)  ; 

PUTANDGZT    :=    GITCHAR 
END;  (*    PUTANDGET    *) 

^* *) 

J*    NUKSECCL    READS    ALL    DIGITS    WHICH    C0.1PRISE    ONE    UNSIGNED      *j 
(*    INTEGER    AND    PUTS    THEM    INTO    THE    ACCUM    IN    SEQUENCE;  * 

(*    THE    NUMBER    OF    DIGITS    SPOOLED    IS    RETURNED.  *' 

|« «* 

FUNCTION    NUHSPOOL    :     INTEGER; 

VAR    I    :    INTEGER; 
BEGIN 

IF    TCHAE    IN    DIGITS    THEN 
BEGIN 
I    •  =    0  * 

WHILE    -kHAR    IN    DIGITS     DO 
EEGIN 

TCHAR     :=    PCTANDGET  (TCHAR)  ; 
I    :=    I   +    1 
END; 
NUMSrCCL     :=    I 
END 
ELSE 

NUMSECOL    :=    0 
END;  (*    NUMSPOOL    *) 

(* ^ *) 

(*    EXPONENT    READS    THE    CHARS     WHICH    COMPRISE    AN    EXPONENT  *! 


*    PART,    COUNTS     THEM,    AND    PUTS    THEM    INTO    THE    ACCUM.  * 

i^ :J: 


PROCEDURE    EXPONENT; 

''if     (UPCASE  (TCHAR)     =    'E')     THEN 
EEGIN 

TCHAR    :=    PUTANCGET  (TCHAR)  ; 
IF    TCHAR     IN    SIGNS    THEN 

TCHAR    :=    PUTANDGET (TCHAR) 
ELSE 

PCTCHAR  C+M  ; 
ECCUNT    :=    NUMSECOL 
END 
END;  (*    EXPONENT    *) 

(* *) 
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1*    DECIMALET    READS     AND    COUNTS    THE    DIGITS    IN    THE  *] 

(*    FRACTIONAL    PART    OF    A    NUMBER    AND    PUTS    THEM    INTO     ACCUM.       *^ 

FROCEEURE    DECIMALPT; 

EEGIN 

IF    TCHAE    =   PERIOD    THEN 
BEGIN 

TCHAR    :=    PUTANEGET  (TCHAR)  ; 
RCCCNT    :=     NUMSECOL 
END 
END;  (*    DECIMALPT    *) 


^^ *) 


*  ADJUST    IS    HIGHLY    CALCULATOR-DEPENDENT;     ADJUSTS    ALL  *f 

*  LITERAL    NUMERICS    TO   TI-59    FORMAT;     SETS    VALUES    FOR  *' 

*  LCCUNI,    RCOUNT,     AND   ECOUNT     (LEFT,     RIGHT,     EXPONENT).  *) 

*  TI-59    WILL    ACCEPT    FROM    ITS    KEYBOARD    A    MAX    OF     10    DIGITS  *] 

*  (PIUS    DECIMAL    POINT    AND    SIGN)     FOR    INTEGERS    OR    REALS  * 

*  WITHOUT    EXPONENT,    CB.    8    DIGITS     fPLUS    DECIMAL    POINT    AND  *] 

I*    SIGN)     ANE   2     DIGIT    SIGNED    EXPONENT.        SINCE    NUMBERS    ARE  *\ 

(*    SCANNED    AND    PUT    INTO    THE     ACCUM    AS     THEY    ARE    READ    IN  *) 

(*    WEASIC    SOURCE   CODE^    THOSE    WHICH    EXCEED    THE    ABOVE  *) 

(*    MAXIMUMS    MUST    BE    CONVERTED    WHILE    IN    THE    ACCUM.  i'' 

l*    THIS    BCUTINE     IS    DIFFICULT    TO    UNDERSTAND,     MUCH    LESS  * 

\*    VISUALIZE,    WITHOUT    USING     A    SPECIFIC    EXAMPLE    TO    WALK-  * 

(*    THROUGH    CN    PAPER.  ** 

I* *f 

PROCEDURE    ADJUST; 

(*    MCVEXP    SHIFTS    THE    PCSITICN    OF    THE     EXPONENT    PART    SO  *) 

(*    THAT    THE    NUMBER    HAS    MAX    OF    8    SIGNIFICANT    DIGITS,     SIGN,  *) 
(*    AND    CECIKAL     POINT     (NOTE:        SIGNIFICANCE    IS    LOST)  .                   *) 

PROCEEURS    MCVEXP; 
VAR    I    :    INTEGER; 

EEGIN 

FOR  I  :=  1  TO  (2  +  ECOUNT)  DO 

ACCUM  (.9  +  1.)      :=  ACCUM  (.LCOUNT  +  RCOUNT  *  1  +1.); 

ACCINX  :=  11  +  ECOUNT 

END;  (*  MCVEXP  *) 

(* ^) 
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(*    ADJEXF    CCNVERTS     NUMBERS     TO    EQUIVALENT    TI-59    COKFATIBLE    ' 

{*    FCBM    EY    COORDINATING    EXPONENT    VALUE    ADJUSTMENT    WITH 

)*    DECIMAL    EOINT    MOVEMENT    AND    DIGIT    TRUNCATION. 

;-t ... 


-*1 


EROCEEURE    ADJEXP     (DIFE    :     INTEGER) ; 
VAR    El,    E2,    EXP,    NEWEXP    :    INTEGER; 


EEGI 
El 

E2 
EX 
IF 


El 

E2 

AC 

AC 

END; 


N 


P    : 
AC 
NEW 
SE 
NEW 


CUM 
CUM 


CRD 

CBD 

=    10 

CUM( 

EXE 


(ACCUM(.  12.))     -    CRD  ('OM  ; 
(ACCUM(.  13.))     -    ORD  ('  0')  ; 


;accum 

ACCUM 
*    El    + 
11  .)     = 

=    EXP    - 


Hi 


THEN 
CIFF 


EXP    :=    EXF    *    CIFF; 
IRDNC(NEWEXP/10)  : 
N  JWEXP    -    (El    *    10)  ; 
(.  12.)     :=    CHR  (El    +   ORD 
(.  13.)     :=   CHR  (E2    +    ORD 


\\p> 


)) 


(*    ADJEXP    *) 


(* 

BEGIN 
IF     (LC 


-* 


(*    ADJUST    MAIN    * 
CUN 
BEGIN 


IT  >  10)  OB'  (( 


LCOUN 


T  >  8)  AND  (SCOUNT  <>  0))  THEN 


•  +  • 

•0  • 
'0» 


=  1  THEN 
3 


:u«  (.13. ) 

;UM  (.12.) 
;INX  :=  1 


ACCUM(.9.)  :=  PERIOD; 
IF  ECCUNT  =  0  THEN 
BEGIN 
ACCUM 
ACOJM 
ACCUM 
ACCUM 
ACCIN 
END 
ELSE 
BEGIN 

MCVSXP; 
IF  SCOUNT 
BEGIN 
ACCUM 
ACCU 
ACC 
END 
END; 
ADJEXP  (LCOUNT  -  8)  ; 
LCCUNT  :=  8;   RCOUNT 
END 
ELSE  IF  (ICOUNT  +  RCOUNT 
(  (LCOUNT  *    RCOUNT 
BEGIN 

IF  ECCUNT  =  0 
BEGIN 

ACCINX  := 
RCOUNT  := 
END 
ELSE 
BEGIN 
MCVEXP 
RCOUNT 
END 
END 


=  ACCUM(.  12.  )  ; 
=  •  0"  : 


:=  0; 

>  10) 
>  8( 


ECOUNT  :=  2 

(SCOUNT  <>  0)  )  THEN 


OR 
AND 


TEEN 


11; 

10  -  LCCUNT 


:=  8  -  LCOUNT 


END; 
(*■ 


ADJUST  *) 
*) 
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(*    RWLGOKU?    LOOKS    UP    TOKEN    IN    BESSRVE    WORD    TBL    BASED    UPON    * 
(*    TOKEN    LENGTH;    RETURNS    TOKEN    NUMBER;    IF    NOT    FOUND,  * 

(*    TCKNUM    =    IDENTOK     (IE.     TOKEN    IS    ASSUSED    IDENTIFIER).  * 

|:«c «' 

FUNCTION    FHLOOKUP    :     INTEGER; 

7AR    MATCH    :     BOOLEAN; 

CHINEX,     WDINDX,     LGINDX,     ACINDX    :     INTEGER; 

BEGIN 

LGINDX    :=    ACCINX; 

WDINDX    :=    RWLENG(. IGINDX. ) ; 

REPEAT 

MATCH    :=   TRUE; 
ACINEX    :=    1; 


CHINDX    :=    RWWORDj. WDINDX. )  ; 
(MATCH)     ANC     ' 

BEGIN 


WHILE     (MATCH)     ANC     (ACINDX    <=    LGINDX)     DO 


IF    UPCASS(ACCUM(.ACINDX,) )     <>    RHCH AR (. CHINDX. )     THEN 

MATCH     :=    FALSE 
ELSE 
BEGIN 

ACINDX    :=    ACINDX    +    1  ; 
CHINDX     :=    CHINDX    +    1 
END 
END; 
WDINDX    :=    WDINDX    +    1 
UNTIL     (MATCH)      OR     (CHINDX    =    R  WWORD  (  .  RWLENG  (.  LGINDX+ 1  . )  .)  )  ; 
IF    MATCH    THEN 

RWLOCKUP    :=     WDINCX    -     1  (*    BACK-UP    THE    WORD    INDEX    *) 

EL  SE 

BWLCCKUP    :=     IDENTOK 
END;  (*    RWLOOKUP    *) 

<* *) 

J*    CMTSECCL    READS    ANC    DISREGARDS    THE     TEXT    OF    COMMENTS.  *' 

(*    FIAGCMT    IS    USED    FOR    COMMENTS    CONTINUED    ON     NEW    LINE.  * 

(* *' 

PROCEDURE    CMTSPOOL; 

BEGIN 

FIAGCMT     ;=    FALSE;  (*    RESET    COMMENT    CONTINUATION    FLAG    *) 

WHILE    NCT     (TCHAR    IN    CRITICAL)     DO 

TCHA5    :=   GETCHAR  ; 
IF    TCHAR    =    • 5'     THEN 
FIAGCMT    :=    TRUE 
END;  (*    CMTSPOOL    *) 

(« *) 

I*    RECOVER    SCANS    AND    DISREGARDS    THE    REMAINDER    OF    THE  *] 

*    CURRENT    TOKEN    AND    STOPS     AT    START    OF    NEXT    TOKEN.  * 

* *' 

PROCEDURE    RECOVER; 

BEGIN 

WHILE    NCT     (TCHAR    IN  (CRITICAL    +    (. BLANK. )))^    DO 

TCHAR    :=   GETCHAR  (*    SKIP    TO    NEXT    TOKEN    AND    RETURN    *) 

END;  (*    RECOVER    *) 

(*=  =  =  =  =  =  =  =  =  ====  =  =  =  =  ==========  =====  =  =  =  =  =  =  =  =====  =  =  =  =  =======*) 
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EEGIN 


(*  SCAN  MAIN  *) 


LTCKNUM 

TOKNUM 

ACCINX 

LCCUNT 

RCCONT 

ECOUNT 

TCHAR  : 


=  TOKNUM;  (* 

:  ERRORTOK;  (* 

:  0;  (* 

=  0;  (* 

:  0;  * 

:  0;  (* 

GETNOBLANK;  (* 


IF  (TCHAR  = 

TCKNUM  :=  ENDFILICK 


ENDFIL)    THEN 


SAVE    LAST    TOKNUM    IN    LTOKNUM  * 

INITIALIZE     NSW    TOKEN    NUMEEB  * 

INDICATES    TOKEN    LENGTH    IN    ACCUM  * 

NO.     OF    DIGITS    LEFT      OF    DECIMAL  * 

NO.     OF    DIGITS    RIGHT    OF    DECIMAL  * 

NO.     OF    DIGITS    IN    EXPONENT  * 

GET    NEXT    NON-BLANK    CHAR  *) 


(TCHAR    =    »  S')     THEN 


ELSE    IF 

BEGIN 

CLIMUM 

LINBUE 

TCHAR 

TCHAR 

TCHAR 

IF    FIAGCMT 
CJfT  SPOOL 

ELSE 

SCAN    (TOKNUM) 
END 


:=  LINENB; 
:=  RDLINE; 
=  GETCHSR: 
=  GETNOEIANK; 
=  GETCHfiB; 
THEN 


* 
* 

(* 
(* 


READ  LINE  NO.  OF  CONT  LINE 
READ  TEXT  CF  CONT  LINE 
MOVE  LN3INX  PAST  TRAIL  "&" 
FIND  LEADING  "&"  ON  NEW  LI 
MOVE  LN3INX  PAST  CONT  "&" 

CCMMENT  CONTINUATION 

SCAN  NEXT  TOKEN  AFTER  "S" 


NE 


*) 


ELSE  IF  (TCHAR  =  ENDLIN)  THEN 
EEGIN 

LIINUM 

LINUM 

LINBUF 

TCHAR 

TCKKUM 
END 


:=  LINUM; 
:=  LINENB; 

:=  RDLINE; 
:=  GFTCHAR; 

:=     ENDLINTOK 


PASS    LINUM    TO 
READ    LINE    NO. 
READ    TEXT    OF    NEW 
MOVE    LNBINX    FAST 
ASSIGN     TOKEN    NO. 


LAST     LINUM  *) 

0?    NEW    LINE  * 

LINE  *i 

ENDLIN    CHAR  *i 

FOR    ENDLIN  *i 


ELSE    IF     (TCHAR    IN     LETTERS)     THEN 
BEGIN 

WHILE     (TCHAR    IN    ALFANUM)     DO 
BEGIN 

TCHAR     :=    PUTANDGET  (TCHAR)  ; 
IF    TCHAR    =    USCORS    THEN  (* 

TCHAR    :=    PUTANDGET  (TCHAR) 
END; 
IF    ACCINX    <=    RWLENGCT    THEN 
EEGIN 


RWLOOKUP; 
IF    TOKNUM    =    CMTOKBEM    THEN 


TCKNUM    :  = 
'    TOKNUM 
CMTSEOOL 


END 
ELSF 

TCKNUM 
END 


:  =    IDENTOK 


ASSUMES    USCORE    WIIL    *' 
(*    NOT    OCCUR    AT    END    *j 


(*    LOOK    FOR    REM    CMT    *) 


ELSE    IF     (TCHAS    IN     DIGITS)     THEN 
EEGIN 

LCCCNT    :  =     NUMSECOL; 

IF    TCHAR    =    PERIOD    THEN 

DECIMALPT 
ELSE    IF    (UPCASE  (TCHAR)     =    'E') 

PCTCHAR(FERICD)  ; 
EX£CNENT; 
ADOCSI; 

TCKNUM    :=     NUMBEETOK 
END 


THEN 
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ELSE    IF     (TCHAR    =    PEEIOD)      THEN 
EEGIN 

DECIMALPT; 

EXECNENT; 

71  n  1  r  c  T  , 

TCKNUM*:=     NUMBEETOK 

END 

ELSE    IF     (TCHAH    IN     EOUBLEI )     THEN 
BEGIN 

TCHAR    :=    PUTANEGET  (TCHAR): 
IF     (TCHAR    IN    DCUBLE2)     THcN 

TCHAR    :=    PUTANDGET (TCHAR) ; 
TOKNUH    :=     BtfLCCKUP 
END 

ELSE    IF     (TCHAR    IN     SPECIALS)     THEN 
EEGIN 

TCHAR    :=    P UTANDGET (TC HAR) ; 
TCKKUM    *=     '^WLOCKUP* 

IF    TOKNUM    =    CMTCKEXC    THEN  (*    LOOK    FOR    EXCLAM    CMT    *) 

CMTSPOOL 
END 

ELSE    IF     (TCHAR    IN    SUBERROR)     THEN 
EEGIN 

WRITE  (LISTF,     •♦^F**    SCAN    ERROR    FOUND    AT    "»,    TCHAR); 

WRITEIN    (LISTF,     '"...CHAR    NOT    IN    THIS    SUBSET'); 

EBBCSCT    :=    ERRCHCT    +     1; 

RECOVER 
END 

ELSE 
EEGIN 

WRITE  (LISTF,    •**?**    SCAN    ERROR    FOUND    AT    "',    TCHAR); 

WRIIELN  (LISTF,  •"...UNRECOGNIZABLE  CHAR'); 

EFBCfiCT  :=  ERROfiCT  +  1; 

RECOVER 
END; 


FOR 


R  I  :=  (ACCINX  +  1)  TO  MAXTCKLSN  DO 

ACCUM(.I.)   :=  BLANK;    (*  BLANK  OUT  REMAINDER  OF  ACCUM 


* 


/* ^j 

(*    DEBUGGING   TOOL:        LISTS    TOKNUM    AND    TOKEN    AS    IT    IS    REAE.     *i 

IF    TOKCCT    THEN  (*    OPTION    7    *' 

WSITEIN     (OUTFILE,     '     '  :6  ,    TCKNUfl:2,     '        |',    ACCUM,     '  !  ')  ; 

IF    TOKLIS    THEN  (*    OPTION    8    *) 

WRITEIN     (LISTF,     '     ';6,     T0KNUM:2,     •        I',    ACCUM,     'I') 
(* *) 

END;  (*    SCAN    *) 
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(*  ERROR/LINE    END    HANDLING    ROUTINES  *j 


^*_Q6 

(*    PREC07ER    SCANS    A     LINE    AN 
j*    FINDS    A    COMMENT,     AN    END 


. *• 

D    DISREGARDS    TOKENS    UNTIL    IT  *) 

OF    LINE,     OR    AN    END    OF    FILE.  *1 
*| 


EROCEEUHB    FBECOVER; 

EEGIN 

WHILE    NOT     (TOKNUM    IN   TRAI 
SCAN     (TCKNUM) 
END; 

(*~  2  0  —*  t 

FROCECURE    GENKEY    (OPCCDE 


LTOKS)     DO 

(*    PRECOVER    *) 


INTEGER)  ; 


FORWARD; 


*:<j*:gc*«««  ****************************************  ******** 


r*-0  7 

(*  PERROR    IS    THE    GENERAL    FU 

(*  GENERATES    SPACE    FOR    REGI 

{*  ORDER    10    PREVENT    THE    COD 

(*  SYSTEM    ERROR    DUE    TC    INVA 

(*  ANNOTATES   THE    LISTING    FI 

j*  INCREMENTS    THE    ERFCR    COO 


RFOSS    ERROR    HANDLER    WHICH: 
STER    OR    ADDRESS    INSERTION    IN 
EDUMP    ROUTINE    FROM    CAUSING    A 
LID    TI-59     CODE    GENERATION; 
LE    WITH    THE    ERROR    LOCATION: 
NT;    RECOVERS    TO    END    OF    LINE. 


**) 

•  -* 
* 
* 

*] 

* 
*' 
-*1 


PROCEDURE    PERROR; 

BEGIN 

GENKEY     (-1);      (*    GENERATE 
GENKEY     (-1);      (*    DUMP    ROUT 
WRITELN     (LISTF,« **F**    FAT 
ERRCFCT    :=    ERRORCT    +    1  ; 
PRECOVER 

END; 


^**:(c«****«****  **:*********** 


REG/ADDH  SPACE  TO  PROTECT  CODE  *) 
INE  FROM  OPERATING  SYS  ERROR.  *) 
AL    ERROR    FOUND    AT    "• , ACCUM, ' "• ) ; 


(*    PERRCR    *) 

:>«******************************) 


(*-0  8 

(*    PSUBEB5CR    DISTINGUISHES 
(*    USING    A    ^EASIC    COfMAND    N 
(* 


* 

AN    ERROR    WHICH    IS    A    RESULT    OF      * 
OT    IN    THIS    IMPLEMENTATION.  * 


PROCEDURE    PSUBERROR; 

EEGIN 

WRITELN  (LISTF,' **F**  SUBSET  ERROR  FOUND  AT  " •  , ACCUM,  "" )  ; 

ERRCBCT     :=    ERRORCT    +    1  ; 

PRECOVER 
END; 


^**:«c^4c:«c«!^:4(«:ti :«[:«(  :9c:4c:«i:4c:4c4c******* 


(*  PSUBERROR  *) 

:4r#3«c:^:4t:4c3tc:4c:(c:«c*:4(:^««:«c4c4::4i:4c4c:te;tc«*:t[4c*****) 
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(*-0  9 

(*    PWAEN    IS    USED    TO    ICCATE 

*  USEB    AND    TO    INCREMENT    TH 

*  NCEMAI    CCMPILATICN    CONTI 
* . 


:j:) 

THE    CAUSE    OF    A    WARNING    FOB    THE    *! 
E    WARNING    ilSG    COUNT;     NOTE    THAT    * 

NUES.  *' 

*' 


FROCEEUEE    FWAEN; 


BEGIN 

WRITELN     (LISTF,    « *«W**    WA 
WABNCT    :=    WARNCT    +    1 

END; 


RNING    TRIGGERED    AT    "'  , ACCUM , • " ')  ; 

(*    FWARN    *) 

^j)t5(t**«:je**«*:«t  ****«♦  :«!**«**  ***«**5ji***««*******  ****************  J 


(*-io--- 

*  CICSEIINE    IS     A    GENERAL    P 

*  END    OF    A    LINE    IS    EXPECTS 
(*    OR    NOT    THE    LINE    BUFFER    I 

*  END    OF    LINE/FILE    CHAR;    M 


URPOSE    PROCEDURE    USED    WHEN    THE    *' 

D    BUT    IT    IS    NOT    KNOWN    WHETHER      *1 

NDEX    IS    IN    FRONT    OF    OR    AT    THE      * 

AY    ALSO    3E    A    COMMENT    PRIOR    TO.     * 
* 


EfiOCECURE    CLOSELINE; 

EEGIN 

IF    NOT     (TCKNUM    IN    TRAILTO 

SCAN     (TCKNUM)  ; 
IF    NOT     (TCKNUa    IN    IRAILTO 
PERRCR 
END; 


KS)     THEN 
KS)     THEN 


(*    CLOSELINE    *) 
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*  SYMBOL    TABLE    MANAGEMENT    ROUTINES  * 


/*_1    1 . 

*  HASHVAI    BETUHNS    TFE    HASH    VALUE    OF    THE    STRING    CONTAINED    * 

*  IN    THE    ACOJM     (SUM    CF    ORD     VALUES    OF    CHARS    MOD    HASHEASE)     *'i 
j* 1-*' 


l\ 


FUNCTION    HASHVAL    ( ACCUM: TKS TEI NG ;    ACCINX : INTEGER)      :     HASHRNG; 
VAR  HASHSUM,     I    :     INTEGER; 

BEGIN 

HASHSUM    : =  0: 

FOB    I     :=     1    TO     ACCINX    DO 

HASHSUM    ;=    HASHSUM   +    ORD     (ACCUM  (. I. ) )  ; 

HASHVAI    :=    HASHSUM    MOD     (HASHEASE    +     1) 
END;  (*    HASHVAL    *) 

^ :«::«(  :«c;«c«:»:»«  *««***  :«c  :«r*  ********  #  ********************************  J 

^*--|2 *) 

(*    GETSLCT    HASHES    ID    STRING    IN    ACCUM    INTO    SYMBOL    TABLE;  *] 

(*    INSERTS    NEW    SLOT    INTO    CORRECT    HASH    BUCKET    AND    ENTERS         * 
(*    IDENTIFIER    NAME    INTO    IDSNT    FIELD;     RETURNS    SLOT    POINTER    *' 
(*    TO    THE    NEW    SLOT    BUT    VARIANT    TAG   TYP    IS    UNDECLARED.  * 

I* *' 

FUNCTION    GEISLOT     ( ACCCM: TKS TRI NG;    ACCINX : ACCR NG)      :    SLOTFTE; 

VAR    CURHASH    :    HASHRNG; 
IDSLCT       :    SLOTPTR; 

BEGIN 

CURHASH    :=   HASHVAL     (ACCUM,    ACCINX); 

NEW     (lESLCT)  ; 

IDSL0T3.IDENT     :=    ACCUM; 

IDSLCT2.SL0T     :=    BUCKET  (.  C  URHASH.)  ; 

BUCKET  (.CURHASH.)      :=   IDSLCT; 

GETSLCI    ;=   IDSLOT 
END;  (*    GETSLCT    *) 

(********:»*************************************************) 

f*-13 *) 

*  FN    CHK    RETURNS    TRUE/FALSE    A3    TO    WHETHER    OR    NOT    AN  *) 

*  ACCUM    STRING     DESIGNATES     A    USER    DEFINED    FUNCTION    OR    NOT    * 
I* * 

FUNCTION    FN_CHK     (ACCUM    :     TKSTRING)     :     BOOLEAN; 

BEGIN 

FN    CHK    :=    FALSE; 

IF~(U?CASE    (ACCUM  (.1.))     =     »F')     AND 


(UPCASE    (ACCUM(.2.  =     'N'       AND 

(ACCUM  (.3.)       =    USCORE) 
THEN 

FN    CHK    :=    TRUE 
END;       "  (*    FN_CHK    *) 

^** ************* ***********  **************************** ****^ 
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*i 


(*_14 *) 

(*    NE«3EG    FHTURNS    THE    VALUE    OF    THE    NEXT    REGISTER    WHICH  *' 

(*    AVAILAEIE    FOR    USE    AS    VARIABLE    SIORAGE;     RESERVED    REGS  *! 

i*    ARE    SKIPPED    AND    A    COUNT     IS    MAINTAINED    TO    IDENTIFY    THE  * 

(*    POINT    AT    WHICH    TOG    MANY     REGISTERS     HAVE    BEEN    USED.  * 

(*    NOTE    THAT    IF    THE    LAST    REG    IS    RESERVED    AN    OVERFLOW    WILL  *] 

(*    NOT    BE    DETECTED    AND    PROCESSING    'rflLL    CONTINUE.        NOTE  * 

*  ALSO    THAT    A    MEMORY    OVERFLOW    DOES    NOT    STOP    THE    PARSER  *] 

*  FROM    ANALYSIS    AND    CODE    GENERATION,     HOWEVER    THE    REG  * 

*  SUMMARY    MAY    NOT    REFLECT     ACCURATE    REGISTER    INFO.  *' 
|4c — *1 

FUNCTION    NEWREG     :    INTEGER; 

BEGIN 

WHILE  NEXTREG  IN  RESERVE  REG  DO 

NEXTEEG  :=  NEXTREG  +  IT 
NEWREG  :=  NEXTREG; 
IF  NEXTREG  =  (HEGBASE  ■«■  STARTREG)  THEN 

BEGIN      (*  NOTE  THAT  IF  LAST  REG  IS  RESERVED,  THEN 
PWARN;   (*       THIS  WARNING  WILL  NOT  BE  TRIGGERED 
WRITE    (LISTF,  ******  MEMORY  OVERFLOW.. .>  '); 
WRITE    (LISTF,  REG3ASE:1); 
WRITELN  (LISTF,  •  VARIABLE  NAMES  IN  USE .  .  .  R EUSING . »)  ; 
NEXTREG  :=  STARTREG       (*  RESET  THE  REGISTER  STACK  *) 
END 
EL  SE 

NEXTREG  :=  NEXTREG  ^    1 
END;  (*  NEWREG  *) 

**-15 *' 

(*    NEWLEL    RETURNS    THE    KEY    CODE    FOR    THE    NEXT    LABEL    ON    THE       * 
(*    LABEL    STACK;     IF     A    LABEL    STACK    OVERFLOW    OCCURS,     THE  * 

*  SUMMARY    ITEM     WHICH    INDICATES    NUMBER    OF    LABELS    USED    MAY    *' 

*  NOT    REFLECT    ACCURATE    INFORMATION.  *) 
I* *j 

FUNCTION    NEWL3L     :    LBL5NG; 

BEGIN 

NEWLEL  :=  CLABEL  (.  LELCT.)  ; 
LBLCT  :=  LELCT  +  1  ; 
IF  LBLCT  =  LBL3ASE  +  1  THEN 
BEGIN 
PWARN* 

write'   (LISTF,  ******  LABEL  OVERFLOW..  .>  •); 
WRITE    (LISTF,  L3LBASE:1); 

WRITELN  (LISTF,  •  IN  USE. ..RESET  TO  0.'); 
LELCT  :=  1 
END; 
END;  (*  NEWLEL  *) 
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^*_16 *) 

{*  FNSTACKLCOK  SEARCHES  THE  FNF  ACTIVATION  STACK  FOE  THE   *' 
(*  IDENTIFIER  IN  ACCUM  AND  EETaRNS  A  POINTER  TO  ITS  SLOT   *' 
(*  IF  IT  IS  A  FORMAL  EARAi^ETER  IN  AN  ACTIVE  FNP,  OTHER-    * 
(*  WISE  THE  POINTER  RETURNED  IS  NIL.  *' 

I* :^\ 

FUNCTION    FNSTACKLOOK     (ACCUM     :     TKSTRING)      :    SLOTPTR; 

VAR       FLOCK,     FARMPTR,    TPARMPTR    :    SLOTPTR; 
FOUND    :    BOOLEAN; 

BEGIN 

FLCCK    :=    FNSTACK; 
FOUND     :=    FALSE; 
PAEKPTR    :=   NIL; 
TPARMPTR     :=    NIL; 

WHILE     (FLCOK    <>    NIL)     AND     (NOT    FOUND)     DO 
BEGIN 

PABMPTR    :=    FLOCKS. FNP; 
IF    PAEMPTR    <>     NIL    THEN 
REPEAT 

TPARMPTR     :=    FARMPT3: 

FCUND     :=     (PflRMPTRS.IDENT    =    ACCUM); 
EARMPTR    :=    EASMPT  R5).  SLOT 
UNTIL    (FOUND)    OR     (PARMPTR    =    NIL) ; 
FLCCK    :=    FL00K2.FNPLINK 
END; 
FNSTACKLCCK    :=    PARMPTR; 
IF    FCUNE    THEN 

FNSTACKLCOK     :=    TPARMPTR 
END;  (*    FNSTACKLOCK    *) 
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(*    IDICCKU?    FIRST    SEilECHES     ACTIVE    FNP    STACK     (FORMAL  ^) 

(*    PABAMETEFS)  ,     THEN    THE    SYM    TBL    UNTIL    IT    FINDS    THE  * 

(*    IDENTIFIER    NAME    CUEEENTLY    IN    ACCUM;     RETURNS    POINTER    TO    * 
(*    THE    SLCT    FOR    THAT    IDENTIFIER;    CREATES    AND    ENTERS    A  * 

(*    SLCT    FOR    THE    IDENTIFIER    IF    IT    DOES    NOT    YET    EXIST.  * 

^« *) 

FUNCTION    IDLOOKUP    ( ACCUM:TK STRING ;    ACCINX: ACCRNG)      :    SL0TPT3; 
VAR         HICOK,    TLOCK     :    SLOTFTR; 

(* :«c) 

*  SNTEEIE  INSERTS  AN  APPROPRIATE  SLOT  INTO  THE  SY.^  TBL    * 

*  FOR  THE  IDENTIFIER  IN  ACCUM  AND  RETURNS  A  POINTER  TO    * 

*  THAT  SLCT.  * 
|>(C 4t 

FUNCTION    ENTERID    ( ACCUK:  TKS  TRI  NG;    ACCINX  :  ACCRNG)      :     SLOTPTR; 

VAR       IDSICT    :    SLCTPTE; 

EEGIN 

IDSLOT    :=    GETSIOT     (ACCUM,     ACCINX)  ; 
IF    NOT    FN    CHK(ACCUM)    THEN 
WITH    ID^LOTS    DO 
BEGIN 

TYP         :=    VARID; 

R5GNC    :=    NEWREG; 

AUXREGI     :=    -1;  (*    USED    FOR    INDEX    VARS    TO    *) 

AUXREG2     :=    -1;  (*      FOR-NEXT    LOOPS    ONLY.       *) 


WRITE    (NAME?,     •     'tS)  ; 
ZERCPAD     (NAMrF,    REGNO,    2); 
WEITELN     (NAMEF,     '     '  :3,     IDEN 


ENT) 
END 
ELSE 

WITH    IDSLOTS    DO 
BEGIN 

TY?    :=    FNPID; 
fNP     :=    NIL; 
FNPLINK     :=    NIL; 
PNREGNO     :=    NFWRSG; 
TFT      *—     ^JFUTRT* 

WHITELn'   (NAMEF,    •     'rS,     FNREGN0:5,     •     ':3,    IDENT) 
END  • 
enteric' :=   IDSLOT 
END;  (*    ENTERID    *) 

(* «) 
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BEGIN  (*    IDLOOKUP     tfAIN    *) 

TLCCK     :=    FNSTACKLOCK    (ACCUM)  ; 
IF    TLOCK    =    NIL    THEN 
BEGIN 

HLCCK    :=    BUCKEI     (.HASHVAL     (ACCUM,     ACCINX)  . )  ; 
IF    HLCCK    <>    NIL    THEN 
BEGIN 

TLOOK     :=    HLOOK: 
HIOOK     :=    HICOKS.SLOT; 

WHILE     (HLOCKONIL)     AND     (TLOOKo) .  IDENTOACCUM)     DO 
BEGIN 

HLOOK     :-   HLOOKcD.SLOT; 
TLOOK     :=    TLOOKa).  SLOT 
END; 
IF   TLOCKS.IDENT    =     ACCUM    THEN 

IDLOOKUP     :=    TLOOK 
ELSE 

IDLOOKUP    :=    2NTERID     (ACCUM,     ACCINX) 
END 
ELSE 

lELCOKUP    :=     SNTERID     (ACCUM,     ACCINX) 
END 
ELSE 

lELCCKUP    :=    TLOOK 


END; 


(*    IDLOOKUP    *) 
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********************************  :{t****:je*:jt****««**:«t:«t««5jt*«*** 

*  * 

*  CODE    DATA    STRUCTURE    MANAGEMENT    ROUTINES  *'i 
(*  * 

'*^t**«**«*#«*********«!4t:(t*:«:4E  ^^^^^i*  **********************  ****i 


f*—  1  Q—— —  —  „_—— .  _  —  >—  —  —  —  _  —  _——_ 

*  NEWCC£E    FETURNS    A    FOINTE 

*  FIELDS    ARE    INITIALIZED    T 

:4c 


R    TO    A    NEW    CODE    DATA    NODE;  * 

0    A    DEFAULT    VALUE     (EXCEPT    KEY)     *' 


FUNCTION    NEWCODE     (OPCODE    :     INTEGER) 
VAR       CP    :    CODEPTR; 


CODEPTR ; 


BEGIN 

NSW     (CF    ; 

CPa.SEC  ? 

;  = 

NIL; 

CPa).JMPF    ; 

;  = 

NIL; 

CP3.EAKF    • 

;  = 

NIL; 

CP2.ADCR    ; 

;  = 

-1; 

CPol.KEY       : 

;  = 

OPCODE; 

NEWCODE       : 

= 

CP; 

END; 

^ *****************  ********* 


(*     NEWCODE    *) 

******:«(*************************  J 


f*—'^  g-.__ _._._  —  —  __ --— _  — 

I*    PUTKEY    INSERTS    A    CODE    DA 

*  STRUCTURE    IN    FRONT    OF    CP 

*  TO    SAY    THAT    THE    NODE    IS 
;* 


TA    NODE    INTO    THE    CODE    DATA 
CUR    BUT    AFTER    ENDC?    WHICH    IS 
THE    NEW    END    CODE    DATA    NODE. 


-* 

* 

* 

* 

-*) 


EROCECURE    PUTKEY     (VAR    HOLDP     :     CODEPTR); 


BEGIN 

IF  HCLCE  =  NIL 
HCLDE  :=  NEW 
ENDCPol.SEQP  :  = 
HOLCEa).SECP  :  = 
ENDCP    :=    ENDCP 

END; 


THEN 
CODE     (-1)  ; 

HOLEE; 

CPCUR; 

2.SSCE 


(*    PUTKEY    *) 

^********4i**  ***#:((*  *****:«(*******************************  ***:k^ 


(*-20 

(*    GENKEY    FILLS 

<*    PASSED    TO   IT, 

(*    CODE    DATA   STR 
(* 


THE    CPCUR    R 

AND    ATTACH 
UCTURE    AFTE 


:«Cl 

EFERSNCED  NODE  WITH  THE  OPCODE  *! 
ES  ANOTHER  EMPTY  NODE  TO  THE  *' 
R    THE    ONE    JUST    FILLED.  *] 


EROCECURE    GENKEY 

VAR      CP    :    CCDEPT 

BEGIN 

C?CURd).KEY    :  = 
CPCURS.SECP    := 
CPCUR    :=    CPCUR 

ENDCP    ;=    ENDCP 
END; 


R; 


CPCODE; 

NEWCODE     ( 
a.SECE; 
d).SECP 


(*    FORWARD    DECLARATION    WITH    *] 
*       ERROR    HANDLING    ROUTINES    * 


-1)  : 


(*    GENKEY    *) 
^ ***************** *********  ******************************** J 
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— -*) 

TO    *1 


(♦»21 

f*    INSEETKEY    IS     USED    AFTER    ALL    CODE    HAS    BEEN    GENERATED 

INSERT    LABELS    TO    GCSUB    REFERENCES;     NOTE    THAT    ENCCP  * 

MUSI  NOT  BE  MOVED  OR  USED  BY  THIS  PROCEDURE  SINCE  IT  * 
NOW  RESIDES  AT  THE  END  OF  THE  CODS  STRUCTURE  AND  5*ILL  * 
BE  USED  TO  FLAG  THE  END  OF  THE  STRUCTURE  TO  TRAVERSING  * 
POINTER    PROCECORES 


I* 
(* 
I* 

(* 


POINTER    PROCEDURES.  *S 


PROCEDURE    INSERTKEY     (OPCODE 
VAR       CP    :    CCDEPTR; 


INTEGER;    VAR    LOCUS    :    CODEPTR)  ; 


BEGI 
CP 
CP 
LO 

END; 


N 

:=    NIWCCDE     (OPCODE)  ; 
3.SECP    :=   LOCUS; 
CUS    :=    CP 


^  ««  4c  :«c  :» :{c  :«>  :4i  «  4i  41  *«  ♦  *  4e«  «  «  «  «4:4c  *4c  * 


(*    INSERTKEY    *) 


(*-2 

f*    G 


ETNEWHDR   CONSTRUCTS    AND 
ND    CODE    DATA    NODE    PAIR: 
NITIALIZED;     THIS    PAIR    0 
HAIN    CF    CODE    GENERATED 
INE.        (NOTE     THAT    NEWCOD 


RETURNS    A    POINTER    TO     A    LINE 
ALL    FIELDS    OF    BOTH    NODES    ARE 
r    NODES    IS    USED    TO    HEAD    THE 
FOR    A    PARTICULAR    MBASIC    SOURCE 
E    INITIALIZES    CODE    NODE) 


FUNCTION    GETNEWHDR     (LINUM    :     BASLINRNG) 

VAR  LP    :     LINEPTR; 

C?  :  CODEPTR; 
BEGIN 

NEW     (LP) ; 

LPa.CPTR    := 


LINEPTR; 


LPa.LINC    :=    LINUM; 
LPa.LPTF    :=    NIL; 
GETNEWHDR    :=    LP 
END; 


NEWCODE    (-1)  ; 


***♦*♦♦♦♦*♦****  :«t*  ***  *=«t*  *** 


(*    GETNEWHDR    *) 

♦  *****3!e#3)::^*:}c:«e***:«c*  *********  *****) 


(*-2 

*      p 


* 

* 

* 

(* 

(*• 


UTNEWHDR   INSERTS    A    HEAD 
NTO    THE    CODE    DATA    STRUC 


I 

CURRENT    LINE 

BAKP 

CODE 


MARKING  POI 
IS  USED  HERS  TO  MAR 
CCRRESPONDING    TO    A 


EF     (LINE/CODE    DATA    NODS    PAIR) 
TURE    AT    THE    POSITION    OF    THE 
NTER,     LPCUR.        NOTE   THAT    THE 
K    THE    LOCATION    OF    THE    START    CF 
NSW    SOURCE    LINE, 


PROCEDURE    PUTNEWHDR     (VAR    LPCUR,    LP    :     LINEPTR) ; 

BEGIN 

LPa.LPTR    :=   LPCURS.IPTR; 

LPCDRdl.LPTR    :=    LP; 

LPCUR    :=    LP; 

ENDCPol.SECP    :=    LPS.CPTR; 

CPCUR    :=    LP3).CPTR: 

CPCDRS.EAKP    :=    ENDCP 
END;  (*    PUTNEWHDR    *) 

^*** ***********  ********************************************} 
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^*«2  4 ■ * 

(*    SEILINE    COORDINATES    THE    SET    UP    OF    THE    CODE    DATA  * 

(*    STEUCTURE   FOR    THE    EEGINNING    OF    CODE    GENERATED    FOR    A  * 

I*    NEW    HEASIC    SOURCE    LINE;     IF    LINE    NUMBER    HEADER    NODES  * 

(*    ALREADY    EHST    3ECACSS    FORWARD    JUMP    REFERENCES     REQUIRED    *) 
(*    THEIR    EXISTENCE,     T'ttEN    THESE    NODES    ARE    CHECKED    FIRST  * 

(*    FOR    THE    CURRENT    LINE    NUMBER.  * 

|« * 

PROCEDURE    SETLINE    (VAS   LPCUR,     LP    :    LINSPTR) ; 

VAR       LNUMBER    :     BASLINRNG; 

EEGIN 

LNOMBEE    :=   LINUM: 

IF    TOKNUM    =    ENDLINTOK    THEN 

INUMEER    :=    LLINUtf; 
IF    irCUEa).L?TR    <>     NIL    THEN  (*    IF    LINE    DATA    NODES  * 

BEGIN  (*      EXIST    FROM    JUMP    REFS.    * 

IF     fLPCURa).LPTE2.LIN0)     =    LNUMBER    THEN 

EEGIN  (*    CURRENT    LINE    NUMBER    IS    * 

LFCUS     :=    LFCURS.LPTE:     (*      THE    NEXT    ONE    IN    CHAIN    * 
ENDCPS.SEQF    :=    LP  CUEo).  CPTR  ; 
CPCUR     :=    LFCURS.CETR; 
CFCUaa.BAXF    :=    ENDCP 
END 
ELSE 
EEGIN 

IF    :=    GETNEWHDR     (LNUMBEE)  ; 
PUTNEWHDR     (LPCUR,     LP) 
END 
END 
ELSE 
BEGIN 

LP    :=    GETNEMHDE     (LNUMBER); 
PUTNEWHDR     (LPCOE,    LP) 
END 
END;  (*    SETLINE    *) 
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(*-2  5 

(*    SEIJMFEXT    SETS    THE    EXTER 
(*    TO    THE    WEASIC    LINUM    I NDI 


*) 

NAL    JMP    PTR    FROM    CFCURS.JMFP         ^) 

GATED    BY    THE    GOTO    OR    GOSUB  *) 
^\ 


FROCEEURE    SETJMPEXT     (LINUM     :     BASLIIJRNG)  ; 


BEGIN 

IF  IINUM  >  L 
BEGIN 
LPIEAD 
LPTEAIL 
WHILE  (L 
BEGIN 
LFLE 
LFTR 
END; 
IF  LPTRA 
BEGIN 
CFCJ 
LFTR 
END 
ELSE 
BEGIN 
lETR 
LAST 
CFCO 
LAST 
END 
END 


PCURS,  LINO  THEN 

R; 


:=  LPC 
•  —    i^pc 

PTRAIL 

AD   :  = 
AIL  :  = 


UBS. LPT 

UR; 

2 .  LI  NO 

IPLEAD 
LPTRAI 


(*    FORWARD    JUMP       *) 


<    LINUM)      AND     (LPLEAD    <>    NIL)     DO 

a),  LFTR; 
LS.LPTR 


ILol.LINO   =    LINUM    THEN 


Ra).JMP 
AILa).C 


Alio).  L 

LP    :  = 

Ra.JMP 

LPa).CP 


F    :  =    LP 

FTPS. AD 


FTR    ;  = 
LFTR AIL 
F    :=    LA 
TSa. ADD 


TRAILdl.CPTR;  (*    SET    JMPP    PTR    *) 

DR    :=    0       (*    MARK    JMPP    TERMINAL    *) 


GETNEWHDR     (LINOM) ; 

a). LFTR; 

STLFa).C?TR:  (*    SET    JMPP    PTR    *) 

R    :=    0  (*    MARK    JMPP    TERMINAL    *j 


ELSE 
BEGIN 

LFLEAD    :=    FIRSTIP; 
WHILE     (L  PLEA  Do).  LINO    < 
LFLEAD     :=    LPLEADS.L 
IE    IPLEADS.LINC    =    LIN 
BEGIN 

CFCURS.JMPF    :=    LPLEADS.CPTR 
LFLEADo).  CPTRo).  ADD 
END 
END  <*    ASSUMES    THAT 


(*    BACKWARD    JUMP    *) 

>    LINUM)     AND     (LPLEAD    <>    NIL)     DO 

PTR; 

UM    THEN 

;      {*  SET  JMPP  PTR  *) 
R  :=  0     (*  MARK  JMPP  TERMINAL  *) 


END; 


A  LINO  =  LINUM  ALWAYS  EXISTS  !  *) 

(*  SETJMPEXT  *) 
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(*  FUNCTION    CALL    ROUTINES  *{ 

/*  * 

^^♦♦*«*«#:»*:4t«*******4***  *********************  *«**««*«****«* 

(*-ao-*) 

PROCEDURE  PEXPR;  FORWARD; 

/*-4  1-*) 

PROCEDURE    PFRI.1ARY;  FORWARD; 

^***  *********************<c  ***********  **********************J 

/*-2  6 *' 

(*    GENFNC    GENERAIES    THE    CODE    FOR    SHORT,     SL^PLE    CALCULATOR    *j 
(*    ARITHSFTIC    FUNCTIONS     ("QUICK"     FUNCTIONS).  * 

^* *' 

PROCEDURE    GENFNQ    (OPND    :    SLOTPTR) ; 

VAR  I    :     1..FNQLEN; 

BEGIN 

SCAN     (TCKNUM)  ; 

IF    TCKSUM    <>    OFARENTCK    THEN  (*    •   (•     *) 

PERRCB 
ELSE 
BEGIN 

SCAN     (TOKNUM)  ; 
PEXPR: 
I    :=    1: 
WITH    CFNDa    DO 
REPEAT 

GENKEY     (FNC(.I.)  )   ; 
I    :=    I    ■«•     1 
UNTIL     (I    >=     FNQLEN)      OR     (FNQ(.I.)     =    K    NOP) 
END 
END;  (*    GENFNQ    *) 

^**********************************************************^ 

(*-2  7 *] 

\*    CHKFNLIIST    SEARCHES    THE    FNL    USE    LIST    TO    DETERMINE    IF         *! 

(*    THE    FNL    HAS    EVER     EEEN    CALLED    BEFORE;     IF    NOT,     THEN    IT         *' 

(*    MUST    EE    ADDED    TO    IKE    USE    LIST.  *j 

^* *' 

PROCEDURE    CHKFNLLIST     (VAR    IDSLOT    :    SLOTPTR) ; 

VAR         LISTPTR,     HCLDPTR    :    SLOTPTR; 
USED    :    BOOLEAN; 

BEGIN 

LISTPTR    :=   FNLLIST;  (*    GET    THE    LONG    FN    LIST    *) 

IF    LISTPTR    <>    NIL    THEN  (*     TRAVERSE    THE    FNLLIST    * 

REPEAT 

USED     :=    (IDSLOTol.IDENT    =    LISTP  TRS  .  IDENT)  ; 
LISTPTR    :=    LI  STPTRa).  F  NLLINK  ; 
UNTIL     (USED)     OR     (LISTPTR    =    NIL)  ; 
IF    LISTPTR   =    NIL    THEN  (*    IF    NOT    FOUND   ON    LIST,    THEN    *) 

BEGIN  (*     ADD    THIS    LONG    FUNCTION    TO    THE    FNLLIST    *) 

HCLDPTR    :=    FNLLIST; 
FNLLI^^T    :=    IDSICT* 
IDSL0T3.  FNLLINK    :=    HOLDPTR 
END 
END;  (*    CHKFNLLIST    *) 

^ ****************************************************** ****^ 
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i^c  9  Q— — •  — — -.  —  .—  •..__—  — — — _  _— .  ..•_  —  ._—__  —  _....—_____•.  —  .  —  ___— _4c' 
*  GENFNL  GENERATES  TEE  SBR  CALL  TO  A  FNL  BODY  AND  THEN  *j 
*    CALLS    CN    FBOCEDURE    CHKFNLLIST    TO    SEE    I?    THE    FNL    HAS  *' 

(*    BEEN    DSED    BEFORE.  *\ 

(* *) 

PROCEDURE    GENFNL     (VAE    IDSLOT    :     SLOTPTR)  ; 

EEGIN 

SCAN  (TOKNUM)  : 

IF  TCKNUM  <>  OPARENTOK  THEN  (*  •  (»  *) 

PEHRCR 
ELSE 
EEGIN 

SCAN     (TOKNUM)  ; 
PEXFR; 

GENKEY    (K     STO) ; 
GEKKEY    (FTTIREG)  ; 
GEKKEY    (K    SBR)  : 
GENKEY   JII3SLOT2.LBL)  ; 
CHKFNLLIST     (IDSLOT) 
END 
END;  (*    GENFNL    *) 

(*_2  9 *) 

*  NEWPARM    IS    CALLED    WHEN    A    FIRST    CALL    TO    A    PARAMETER    FN  *) 
(*    IS    ENCOUNTERED    IN    THE    WBA3IC    SOURCE    FILE;    AT    THIS    TIMS  *) 

*  NO    REGISTERS     HAVE    BEEN    DESIGNATED     FOR    THE    FORMAL    FN  *) 

*  PARMS;    THIS     PROCECUPS    CREATES    THE    SYM    TBL    ENTRY    AND  *) 

*  DESIGNATES    THE    RESPECTIVE    REGISTER    FOR    THE    NEW    PARM  *) 

*  ENCOUNTERED    IN    THE    FN    CALL;     NOTE    THAT    THE    FORMAL    PARM 

*  IDENT    NAME    IS    NOT    YET    KNOWN    AND    WILL    BE    ENTERED    ONLY 

*  AFTER    THE    FN    DEFINITION    STATEMENT     IS     ENCOUNTERED    LATER 
|« . 

FUNCTION    NEWPARM    :     SLCTPTR; 

VAR       PARMSICT    :     SLOTPTR; 

EEGIN 

NEW     (PARMSLOT); 
WITH    PilRMSLOTo)    DO 
EEGIN 

TYP    :=   VARID; 
REGNO    :=    NEWREG; 

WRITELN    (NAMEF,    •     '  :  5  ,  R  EGNO:  5  ,  »     'iS^M^N    PARAMETER)'); 
SLOT    :=    NIL 
END; 
NEWPARM    :=   PARiYSLOT 
END;  (*    NEWPARM    *) 


139 


[*-3  0 * 

*  GENPAEK    GENERATES    THE    FORMAL    PARAMETER    LIST    FOR  * 

*  PAEAMEIE5    FUNCTIOliS:     IT    ALSO    GENERATES    THE    CODE    WHICH       * 

*  WILL    EVALUATE    AN     ACTUAL    PARAMETER    AND    STORE    IT    IN    THE       * 

*  FORMAL    PARAMETER    STORAGE    LOCATION    PRIOR    TO    FN    EXECUTE.     * 

|:tc *j 

PROCEDURE    GENPARM    (VAE    IDSLOT     :    SLOTPTR)  ; 

VAR       EARMPTR    :     SLOTPTR; 

BEGIN 

SCAN     (TOKNUM)  ; 
IF    TCKNUM    =   OPARENTCK    THEN 
BEGIN 

PARMPTR    :=    IDSICT5).FNP; 
IF    PARMPTR    =    NIL    THEN 
EEGIN 

PARMPTR    :=    NEWPARM; 
ICSLOTS.FNE    :=    PARMPTR 
END; 
REPEAT 

SCAN    (TOKNUM)  ; 

EEXPR;  (*    STOP    AT    EACH    ',•     AND    LAST    •)'    *) 

GENKEY     (K    STC)^; 
GENKEY     (PlRMPTRcD. REGNO)  ; 
IF    TOKNUM    =    CCMMATOK    THEN 
BEGIN 

IF    PARMPTR3.SL0T    =    NIL    THEN 
PA  RMPT  5  2.  SLOT     :=    N'^^WPARM' 
PARMPTR     :  =  'PARMPTR3".SL0T    ''      (*    NEXT    PARAMETER    *) 
END 
UNTIL     (TOKNUM    =    CPARENTOK)  (*    PSXPR    WILL    FIND    •)'     *) 

OR     (TOKNuM    IN    TRAILT0K3)         (*    OR    WILL    FINE    END    *) 
END 
END;  (*    GENPARM    *) 

/*-3T «) 

(*    GENFNP    GENERATES    CODE    SEQUENCE    WHICH    CALLS    A    PARM    FNP.     *) 
(* *) 

PROCEDURE    GENFNP     (VAR    IDSLOT    :    SLOTPTR)  ; 

EEGIN 

GENPARM     (IDSLOT)  ; 

GENKEY  (K    CPAREN)  ; 

GENKEY  (K"SBR)^: 

GENKEY  (I"DSLOTa.LBL)  ; 

GENKEY  (K    CPAREN) 
END;  ~  (*    GENFNP    *) 
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J  3jt*****4««4t«  *********************************  *****««***«*** 

tijc  4: 

I*  FUNCTION    DEFINITION    ROUTINES  *) 

l*-3  2 * 

(*  PUSHFN  POSHES  A  FfF  SLOT  ONTO  THE  FNP  ACTIVATION  STACK  * 

^:«c :j( 

PROCEDDRE    PUSHFN    (VAS    FNSLOT    :    SLOTPTR)  ; 

EEGIN 

FNSLOia.FNPLINK    :=    FNSTACK; 
FNSTACK    :=   FNSLOT: 
FNSTACKCT    :=    FNSTACKCT    +     1; 
IF    FNSTACKCT     >    ENSTSCKLIU    THEN 
EEGIN 
PWaRN; 


WRITE  (LISTF,     ******    SER    STACK    OVERFLOW. ..>     '); 

WRITEIN  (LISTF,    FN3TACKLIM : 1 ,     '     RETURN    ADDRESSES.') 
END 
END;  (*    PUSHFN    *) 

(*-3  3 *) 

(*    PCtFN    POPS    A     FNP     SLOT    OFF    TOP    OF    FNP    ACTIVATION    STACK.     *) 

(* *s 

PROCEDURE    PCPFN; 

VAR       HOLEPTR    :    SLOTPTR; 

BEGIN 

HOLEPTR    :=   FNSTACK: 
FNSTACK    :=   FNSTACKa.FNPLINK; 
H0LEPTR3. FNPLINK     :=    NIL; 
FNSTACKCT     :=    FNSTACKCT    -     1; 
IF    FNSTACKCT    <    0    THEN 
BEGIN 
P  W  fl  E  N  • 
write'        (LISTF,    »****♦    ATTEMPT    TO    POP    RETURN    ADDR    •); 

WRITEIN    ]lISTF,    'FROM     EMPTY    STACK RESET    CT    =    0'); 

FNSTACKCT     :=    0 
END 
END;  (*    POPFN    *) 


141 


/*-3a * 

(*    FILLPflEMICS     READS    THE    FORMAL    PARAMETER    IDENTIFIER  *j 

(*    NAMES    IN    THE    FN F    DEF    STATEMENT    AND    FILLS    THE    IDENT  * 

(*    FIELD    CF    THE     RESPECTIVE    PARAMETER    SLOT     (ATTACHED    TO  * 

(*    RESPECTIVE    FNP    SLOT    IN    SYM    T3L)  .  *' 

^* *| 

PROCECURE    FILLPAfiMIDS     (V AR    FNSLOT    :     SLOTPTR) ; 
VAR       FNPAEM    :    SLCTPTR; 

"if    FNSICia.FNP    =    NIL    THEN  (*    IN    CASE    FN?     HAS    NOT    *) 

FNSLCTa.FNP     :=    NEWPARM;  (*       BEEN    CALLED    AT    ALL    *j 

FNPARM    :=    FNSLCTa.FNP; 
SCAN     (TCKNUM)  ; 
IF    TCOUM    <>    IDENTCK   THEN 

PERRCE 
ELSE 
BEGIN 

WHIIE    TOKNQM    <>    CPARENTOK    DO 
BEGIN 

FNPARMd.IDENT    :=    ACCUM; 
SCAN     (TOKNUM)  : 
IF   TOKNUM    =    COMMA  TOK    THEN 
BEGIN 

SCAN     (TCKNUM)   ; 

IF    FNPARMS.SLOT    =    NIL    THEN        (*    FNP    HAS    NOT      *) 
FNSLCTa).SLOT    :=    NEWPARM;        (*      BEEN    CALLED    *) 
FNPARM     :=    FNP  ARMo).  SLOT 
END 
END; 
SCAN     (TOKNUM)  (*    SCAN    TOKEN    AFTER    '  )  *     *) 

END 
END;  (*    FILLPARMICS    *) 

^** ********************************************** *****«****) 

(*-3  5 *s 

(*    PFNEND    GENERATES     CODE    FOR    THE    END    OF    A    FUNCTION    BODY  *i 

I*    DEFINITION;     IT    INCLUDES    THE    HOUSE- KEEPING    REQUIRED    TO      *i 

(*    RESET    THE    SCOPE     AND    VISIBILITY    OF    VARIABLE    NAMES    IN  *'i 

(*    THE    SYMBOL   TABLE    THROUGH    THE    FN    ACTIVATION    STACK. 

(* 

FROCECURE    PFNEND; 


-.1 


BEGIN 

GENKEY     (K    RCL)  ; 

GENFEY     (FTISTACKo).  FNREGNO)  ; 

GENKEY     (K    INVSBR)  ; 

POPFN; 

IF  NOT  (TCKNUM  IN  lEAILTOKS)  THEN  (*  GUARD  AGAINST  OVER  *) 

SCAN  (ICKNUM)  (*  SCANNING  END  LINE  IF  CALLED  BY  PDEF.  *) 

END;  (*  PFNEND  *) 
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(*-3  6 *' 

(*    PCEF    GENiRATES    THE    CODE    WHICH    DEFIN2S    THE    SCOPE    AND  *j 

(*    VISIBILITY    FOR    VARIABLE     NAMES;     RESETS    THE    VALUE    OF    THE    * 

(*    REGISTER    IN     WHICH    THE    FUNCTION    VALUE    IS     RETURNED.  *' 

(* :^j 

PROCEDURE    FDEF; 

VAR       FNSICI    :    SLCTPTE; 

BEGIN 

SCAN  riCKNUM)  ; 

IF  NOT  FN  CHK  (ACCUM)  THEN 

PERRCR  " 
ELSE 
BEGIN 

FNSICT  :=  IDLOCKUP  (ACCUM,  ACCINX) ; 

GENKEY  (K  LBL)^  ; 

GENKEY  (FlSLOTa.LBL)  ; 

GE^KSY    (K    ZERO) ;  (*    MUST    ZERO    THE    VALUE    OF    THE    *) 

GENKEY    (K"STO)  :  (*       REGISTER    IN    -^HICH    THE    FN       *) 

GENKEY    (FTISLOTa.FNREGNO)  ;  (*    VALUE    IS    RETURNED.    *) 

PUSHFN  (FNSLOT) ; 

SCAN  (TOKNUM)  ; 

IF  TCKNUM  =  OPASENTOK  THEN       (*  LOOKING  FOR  PARMS  *) 

FILIFARMIDS  (FNSLOT); 
IF  TCKNUM  =  EQQALTOK  THEN    (*  LOOK  FOR  ONE  LINE  FN  *) 
BEGIN 

SCAN  (TOKNUM)  ; 
FEXP3; 

PFNSND   (*  GENERATE  THE  RETURN  FROM  ONE  LINE  FN  *) 
END; 
CLCSELINE 
END 
END;  (*  PDEF  *) 

[*-3  7 * 

*  GETFNIS    IS    CALLED    AFTER     ALL    OTHER    CODE    HAS    BEEN  * 

*  GENERATED:  IT  GENERATES  THE  CODE  FOR  THE  BODIES  OF  ALL  * 
1*  BUILT-IN  LONG  FUNCTIONS  WHICH  HAVE  BEEN  CALLED  AT  * 
(*    LEAST    ONCE    AND    ARE,    THUS,    ON    THE    FNLLIST.  * 

PROCEDURE    GETFNLS; 

VAR       IISTPTR    :     SLOTPIS; 
I    :     1..FNLLEN    +    1; 

Q*qi r»  T  M 

''lISTPTE    :=    FNLLIST;  (*    GET    LONG    FN    LIST    *) 

WHILE    LISIPTR    <>    NIL    DO 

BEGIN  (*    INSERT    CODE    FOR    NEXT    LONG    FN    ON    FNLLIST    *) 

GENKEY    (K    L3L)_; 
GEliKEY    (LTSTPTSa.LBL)   ; 
I    :=    1; 
WHILE     (I     <=    FNIIEN)     AND 

iLISTPTR3.FNL(.  I.)     <>    K    NOP)     DO 
BEGIN 

GENKEY    (LISTPTRa.  FNL  (.  I.)  )  ; 
I    :=    I    +    1 
END; 
GEKKEY    (K    INVSER): 

LISIPTR    :=    LISIPTRS. FNLLINK    (*    NEXT    LONG    FN    ON    LIST    *) 
END 
END;  (*    GETFNIS    *) 
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\^  ^ 

*  EXPRESSION    GE2JERAT0R    ROUTINES  * 

I*  * 

'^♦***«4««:)[  ^  *************************  *^******  ************** 

(*-3  8 ~ * 

(*  GENID  GENERATES  CCCE  FOR  A  VARIABLE  OR  FUNCTION  lEENT.  * 

j:)c * 

PROCEDURE    GENID; 

VAR         CPNC     :   SLOTPTR; 

BEGIN 

OPNC    :=    IDLOOKUP     (SCCUM,     ACCINX) ; 

CASE    0PND51.TYP    OF 
VABIE     :     BEGIN 

If'0PNC2. REGNO    =    -314    THEN     (*    REGNO    FOB    PI      *) 

GENKEY    (K    PI) 
ELSE 
BEGIN 

GENKEY     (K    RCI)  : 
GENKEY     (OPNDa. REGNO) 
END 
END; 
FNQID    :     GENFNQ     (CEND 
NL 


FNLIC    :    GENFNL       CFND 
FNPIE    :    GENFNP     (CPNDJ 
END  (♦    CASE    *) 

END;  (*    GENID    *) 

^*********«* ******************************* ****************) 

/*-3g * 

*  GENNUM    GENERAISS    11-59    EQUIVALENT    CODE    FOR    A    LITERAL         *] 

*  NUMERIC     (EOTH    INTEGER    AND    REAL).  * 

FROCEEURE    GENNUM; 

VAR         I,    DECPTLOC,    ESIGNLOC     :     INTEGER; 

BEGIN 

DECPTLCC    :=    LCCUNT    ♦    1  ; 
FOB    I     :=    1    TO    LCOUNT    DO 

GENKEY     (TRANSDIGIT     (  ACC  UM  (.  I.  ) )  )  ; 
IF    BCCUNT    >    0    THEN 
BEGIN 

GENKEY    (K     EECPTl ; 

FOR    I    :=    TDECPTIOC    +     1)     TO     (DECPTLOC    ♦    RCOUNT)     DO 
GENKEY     (TRANSEIGIT     (ACCUM  (.  I.  )  )  ) 
END; 
IF    ECCUNT    >    0     THEN 
BEGIN 

ESIGNLOC     :=    LCCUNT    +     1    +    RCOUNT    +    2; 
IF    ACCUM (. DECPTLOC.)      <>    PERIOD    THEN 

ESIGNLOC    ;=    ESIGNLOC    -    1; 
GESKEY    (X    EE): 
IF    ACCUM  (TESIGKIOC.)     =    •-•    THEN 


GENKEY     (K_NEG); 

LOC    +     1)     TO     (E 

GENKEY     (TRANSDIGIT     (ACCU  M  (.  I .  )  )  ) 


FOP    I    :=     (ESIGNLOC    +     1)     TO     (ESIGNLOC    +    ECOUNT)     DO 


END 
END;  (*    GENNUM    *) 

^***:tc:^;;c:4it******************  ******************  **************) 
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(*_4  0 

j*    PEXPH    PARSES    AND    GENERATES    CODE    FOR    EXPRESSIONS. 


::-i 


PROCECURE    PEXPR; 


BEGIN 

GSNKEY  (K 
PPRIMABY; 
WHIIE  ICK 
EEGIN 
CASE 
EIU 
MIN 
KUL 
DIV 
EXP 
END; 
IF  NOI  (1 
SCAN 
PPRIM 
END; 
GENKEY  (K 
END; 


_OPAREN)  ; 

NOa    IN    BINCPTOKS 

TCKNOM    OF 

STOK  :  GENKEY 
CSTOK  :  GENKEY 
TCK  :     GENKEY 

TOK  :     GENKEY 

TCK  :     GENKEY 

(*    CASE    *) 
CKNUM    IN    TRAILTO 
(TOKNUM)  ; 
ARY 

__CPAREN) 


f*  FORWARD  DECLARATION  WITH  * 
*   FUNCTION  CALL  ROUTINES   * 


DO 

K  ADDO?)  ; 
K"SUBCP)  ; 
K"MULTOP)  ; 
K-DIVOP)  ; 
K~PCMR) 

KS)  THEN  BEGIN 

END 


*  '  +  »   *) 

*  •  -  «   *) 


^♦♦♦♦♦^♦♦♦*«*********4***** 


(*  PEXPR  *) 


(*-4  1 

(*  PPEIMAFY  PARSES  AND  GENE 
*  EXPECTED  AS  PART  CF  EXPR 


*i 

RATES  CODE  FOR  A  PRIMARY  ITEM   *j 

ESSIONS.  * 
*i 


PROCEDURE  PPRIMARY; 

BEGIN 

CASE  TCKSUM  OF 

PIUSTCK    :  EEGIN 

SCAN  (TOK 
PPRIMARY 
END; 
MINUSTCK   :  EEGIN 

SCAN  (TOK 
PPRIMARY: 
GEN(<EY  (K 
END; 
OPARENTCK  :  BEGIN 

SCAN  (TOK 
PEXPR; 
SCAN  (TOK 
END; 
ICENTCK    :  BEGIN 

GSNID; 
IF  (TOKNU 
THEN  SC 
END; 
NUMBERTCK  :  BEGIN 

GSNNUH; 
SCAN  (TOK 
END 
END    (*  CASE  ♦) 
END; 


[*    FORWARD  DECLARATION  WITH  * 
*   FUNCTION  CALL  ROUTINES   * 


NUM)  ; 

NUM)  ; 

_NEG) 

NUM)  ; 

NUM) 


(*  »+'  *) 
^*  1-1  «) 

(*  '  (•  *) 


M=IDENTOK)     OR     (TOKNUM=CP ARENTOK) 
AN     (TOKNUM) 


NUM) 


(*    PPRIMARY    *) 
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[♦-42 

*    PCCNDITICN 


PARSES    AND    GENEBATES    CODE    FOR    BOOLEAN 


* 

EX  PES    * 

jjc 


PaOCEEURE    ECCNDITION 


VAR 


EEGI 
IN 
SC 

IF 


PE 
GE 
IF 


RE 
SC 
PE 
CA 


EEICP 
INVERT 

N 

VERT  := 

AN  (TCK 
TOOUM 

BEGIN 
INVER 
SCAN 

END; 

XFR; 

NKEY  (K 
INVERT 

CASE  TO 
EQUAL 
NOTEC 
GTICK 
GTECT 
LTTCK 
LTECT 

END; 

LCP  :  = 

AN  (TCK 

XPR; 

SE  RELC 

ECUAITO 


TOKENRNG; 
BOOLEAN; 


FALSE; 
NUM)  ; 
=  NOTTOK 

T  :=  TRUE 
(TO  K  NUM) 


_X^T  ; 

THEN 
KNUM  OF 


THEN 


(*  SCAN  FOR  "NOT"  *) 


TCK 
TOK 

CK 

CK 
(* 


TOK 
TOK 
TOK 
TOK 
TOK 
TOK 
A3E  * 


NCTECTO 

GTTCK 

GTEQTCK 


LTECTCK 


LTTCK 


EN 
END; 


D    (♦ 


TCKNUM; 
NUM)  ; 

P  OF 

K  :  BEGIN 
GEN 
GEN 
END; 
K  :  GENKE 
:  GENKE 
:  BEGIN 
GEN 
GEN 
GEN 
END; 
:  BEGIN 
GEN 
GEN 
END; 
:  BEGIN 
GEN 
GEN 
END 
CASE  *) 


NUM 
NUM 
NUM 
NUM 
NUM 
NUM 
) 


NOTEQTOK; 

EQUALTOK; 

LTECTOK; 

LTTOK; 

GTEQTOK; 

GTTOK; 


(*  BEGIN  NEXT  EXFR  *) 


KEY 
KEY 


KEY 
KEY 
KEY 


KEY 
KEY 


KEY 
KEY 


\h 

INV)  ; 

;iFXEQT) 

K    IFXEQT)  ; 
K~IFXGET)  ; 

^K 

:iTlvl; 
;iFXGET) 

INV)  ; 

;iFXGET) 

!^ 

.XT)  ; 

.I?XGST) 

(*  PCONDITICN  *) 
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J  **♦«♦♦♦««****  ♦:«t*«*:«e«*«*:«e***********4:******  ************  **=it*j 
I*  '* 

I*  LOOPING    ROUTINES  *| 

I*  *' 

[***«*«  :»*««««*:4t*  *****************************  *******«*^****  I 

(*-U3 ^ *) 

*  PUSHCCDE    PaSHES    TEE    RCODE    DATA    NODE    ONTO    THE    LOOP/Ir  * 

*  STACK    CESIGNATSD    EY    STACK.  « 
4c *  I 

PROCEDURE    PUSHCOCE     (BCODE    :     CODEPTR;     VAR    STACK    :     CODEPTP)  ; 

BEGIN 

RCODEa).SECP    :=    STACK; 

STACK     :=    ECODE 
END;  (*    PUSHCOCE    *) 

^*:«c**««*:»«*:«t  «:<«**♦«**«**:««*********************  **************) 

(*-UU *' 

*  POPCOCE    POPS     AND     RETURNS     THE    CODE    DATA    NODE    ON    THE    TO?    *] 

*  OF    THE    LCCP/IF    STACK    DESIGNATED.  *' 
>* . *' 

FUNCTICN    PCECODE     (VAR    STACK     :     CODEPTR)     :    CODEPTR; 

BEGIN 

IF    STACK    =    NIL    THEN 
BEGIN 

WRITE  (LISTF,    ******    INCORRECT    NESTING    OF    CCNTRCL')  ; 

WRITEIN     (LISTFr    '     STATEMENTS     (IF,     FOR,     CR    LOOP).'); 
PEFROR; 

POPCODE    :=    NIL 
END 
ELSE 
BEGIN 

POPCODE    :=    STACK- 
STACK     :=    STACKa.SZQP 
END 
END;  (*    POPCODE    *) 

r*-45 *) 

*  SETFWCJMP    IS     USED    TO    SET    THE    JUMP     POINTER     (JMPP)     OF  *) 

*  THE    CURRENT    CODE    LATA    NODE    POINTING    TO    THE    MOST    RECENT  *) 

(*    CODE    LATA    NODE    ON    THE    DESIGNATED    LOOP/IF    STACK;     THE  *i 

(*    POTENTIAL   ABSOLUTE    ADDRESS    SPACE    IS    GENERATED     WITH    THE  *' 

(*    ASSUMETICN    THAT    TfiE    CODE    DATA    NODE    IN    THE    STACK    TO  *j 

(*    WHICH    THE    FIRST     ADDRESS     SPACE    NODE    IS    POINTING     WILL  ** 

(*    LATER    EE    POPPED    AND    INSERTED    INTO    THE    CODE    AT    THE  *' 

(*    APPROPRIATE    POSITION.  *] 

^* . *| 

PROCEDURE    SETFWDJMP     (STACK     :    CCDEPTR) ; 

BEGIN 

CPCURd).JMEP    :=    STACK;     (*    SET    JMPP    TO    NODE    JUST    PUSHED         * 
STACKa).ADDR    :=    0;  (*    MARK    THE    TERMINAL    NODE    OF    JUMP    * 


GENKEY     (-2);  (*    GEN    SPACE    FOR    ABSOLUTE    ADDRESS    * 

GENKEY     (-2) 
END;  (*    SETFWDJMP    *) 
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(*-£|6 *] 

(*    SEIEAKJUMP    IS    SI.^ILAR    TO    SETFWDJMP    EXCEPT    IN    THIS    CASE  *' 

*  TfiE    FIRST    NODE   OF    P.    POTENTIAL    ADDRESS    SPACE    PAIR    IS  * 

*  POSHED    ONTO    THE    DESIGNATED    LOOP/IF    STACK    AFTER    ITS  *' 

*  JMPP    HAS    BEEN    SET    TO    A   CODE    DATA    NODE    INSERTED     AS    AN  *1 

(*    ANCHCB    FOR   THIS     BACK    JUMP;     THE    POTENTIAL    ADDRESS    SPACE  *] 

(*    NODE    WILL   LATER    BE    POPPED    AND    INSERTED     (ALONG    WITH    ITS  *' 

(*    THE    INSERTION    OF     ANOTHER     NODS    TO    COMPOSE    AN    ADDR    PAIR)     *] 
|« *i 

PROCEDURE    SETBAKJMP     (VAR    STACK    :    CODEPTR)  ; 
VAR      JCOCE    :    CODEPTR; 

BEGIN 

JCCEE    :=    NFrfCOCE     (-2)  ; 

JCODES.JMPF    :=   CPCUR; 

CPCURdl.ADER    :=    0; 

GENKEY     (K    NOP)  ; 

PUSHCCDE    IJCODE,     STACK) 
END;  (*    SETBAKJMP    *) 

/*_4  7 *J 

(*    PLCOF    GENERATES    CODE    FOR    THE    LOOP    COMMAND;  *) 

(*    IT    SETS    UP    THE    START    OF     A    LOOP    CONSTRUCT    3Y    GENERATING    *) 
(*    AN    ANCHOR   NODE    FOE    THE    BACK    JUMP    IN    THE    LOOP.  *) 

(* *) 

PROCEDURE    PLOOP; 

BEGIN 

SETEAKJtfP     (LOOFSTACK); 

PUSHCODE     (NEWCODS     (K    NOP)   ,    ENDLOOPST ACK)  ; 

SCAN     (TCKNUM) ; 

CLOSELINE 
END;  (*    ELOCP    *) 

i:(c— ^  Q__  —  ••  —  —  __  .  .  .>—  ._—._———__  — ..^-.  — —  .—  —  ._  —  —  _._—  —  —  ....._  —  — __—:^ 
*    PWHIIE    GENERATES     CCDE    FOR    THE    WHILE    COMMAND'  * 

(*    IT    IS    SIMILAR    TO    PIOOP    EXCEPT    IT    INSERTS    CODE    TO  * 

(*    EVALUATE    A    BOOLEAN    EXPRESSION     (CONDITION). 

(* 

PROCEDURE    FWHILE; 


-*i 


BEGIN 

SETBAKJMP     (LOOPSTACK)  ; 

PCONDITICN; 

PUSHCODE     (NEWCODE     (K    NOP)   ,    ENDLOOPST  ACK)  ; 

SETFWCJKP     (ENDLOOPSIlCK) 
END;  (*    PWHIIE    *) 


143 


(*    PENDLCCE    FOPS    AND    INSERTS    CODE    WHICH    HAD    BEEN    STACKED       * 
(*    EABLIEE    AS    A    RESULT   OF   THE    START    Of    A    LOOP    CONSTRUCT.       * 

ER0CZEUP5    FENDLOCP; 
VAR      JCCCE    :    CODEPTR; 

BEGIN 

IF    ICKNUM    =    ENDLOOETOK    THEN 
GENKEY     (K   GTO)  ; 

JCODE    :=    FOFCODE     (ICOPSTACK)  ; 

PUTKEY     (JCCDE)  ; 

GENKEY     {-2[: 

JCCCE    :=    PCPCODE     (ZNDLOOPSTACK) ; 

PUTKEY     (JCODE)  ; 

CLCSELINE 
END;  (*    PSNDLOCP    *) 


[*-5  0 ^ 

*  PUNTIL    GENERATES     CODE    TO     EVALUATE    A    BOOLEAN    EXPEESSICN    * 

*  AND    CALLS   PENDLOOE    TO    CLCSE    OUT    THE    LOOP. 
h(c . 


*] 


PROCEDURE    P UNTIL; 


ESGIN 

PCONDITION; 

PENELCCE 
END;  (*  PUNTIL  *) 


r*_51 *) 

(*    PNEXT    GENERATES    CCDE    FOR     THE    NEXT     COMMAND,  *) 

\*    THIS    BCUIINE    IS     WEAK    IN    SYNTAX    ERROR    CHECKING.  *) 

(* ♦( 

EROCEEURE    f'nFXT; 


VAR       ISICT    :    SLOTPTR; 
JCCCE    :   CODEPTR; 

BEGIN 

SCAN     (TCKNUM)  ; 

ISLCT    :=    IDLOOKUP     (ACCUM,     ACCINX)  ; 

IF    ISLCTo).  AUXREG2     =    -1    THEN 

GENKEY  (K  1) 
ELSE 

BEGIN 

GENKEY  (K  RCL)  ; 

GENKEY    (I3L0T3.AUXREG2) 

END; 
GENKEY     (K    SUM)  ; 
GENKEY     (I'SLOTol.ESGNC)  ; 
GENKEY     (K    GTO)  ; 
JCOCE    :=    TOPCODE     (FORSTACK) ; 
PUTKEY     (JCODE)  ; 
GENKEY     (-2); 

JCODE    :=    rOPCODE     (NEXTSTACK)  ; 
PUTKEY     (JCODE)  ; 
CLCSELINE 
END;  (*    PNEXT    *) 
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i 


5  2 

PFOR    GENERATES    CODE    FOR    THE    FOR    COMMAND.       THIS    ROUTINE 
(ANE    THE    PNSXT    ROUTINE)      IS     WEAK    IN    SYNTAX    ERROR    CHECK- 
ING.      THERE    ARE    MANY    PLACES    WHERE     SIMPLE    CHECKS    FOE 
CORRECT    SYNTAX    COULD    HAVE    BEEN    PERFORMED    BUT    WERE    NOT 
BECAUSE    OF   COMPLEXITY    SUCH    CHECKS     WOULD    HAVE    INDUCED. 


EROCEEURE    EFCR; 

VAR       ISICT    :    SLOTPTR; 


BEGIN 
SCA 
ISL 
ISL 
SCA 
SCA 
PEX 
GEN 
GEN 
SCA 
PEX 
GE  N 
GEN 
IF 
B 


PUS 
FOR 
GEN 
GEN 
GEN 
GEN 
GEN 
GEN 
GEN 
PUS 
CPC 
GEN 
GEN 
CLC 
END; 


N  (TC 

CT  :  = 
CTo).  A 
N  (TC 
N  (TC 
FH; 
KEY  ( 
KEY  ( 
N  (TC 
FR; 

KEY  { 
KEY  ( 

TCKKU 

EGIN 

SCAN 

PEXF 

GENK 

ISLC 

GENK 

ND; 

HCODE 

STACK 

KEY  ( 

KEY 

KEY 

KEY 

KEY 

KEY 

KEY 

HCCDE 

aRd).J 

KEY  ( 

KEY  ( 

SELIN 


KNUM)  : 

IDLOOKUP     (ACCUM,     ACCINX)  ; 
UXREG1     :=    NEWREG; 
KNUM)  ; 
KNUM)  ; 

K    STO)  ; 

I'SLOTS.REGNC)  ; 
KNUM) ; 

K    STO)  ; 

l3L0Ta).AUXREGl)  ; 
M    =    STEPTOK    THEN 

(TOKNUM)  ; 
H  * 

EY    (K    3110); 
T2).AaTRSG2     :=    NEWREG; 
EY    (ISL0Ta).AUXREG2) 


(-2)  ,    FCRSIACK) 

CFCUR; 


(NEWCODE 
a).JM?P    :  = 
K    RCL)_  ; 
iSLOTo). REGNO)  ; 
K_X^T)  ; 
K    RCL)  ; 

I"SL0Ta).AUXREG1)  ; 
K    INV)  ; 
K'lTXGIT); 

INEWCODE     (K    NOP)   , 
MEP    :=    NEXTSTACK; 


NEXTSTACK) 


-m 


(*    PFOR    *) 
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?***♦****#«**********«**  ******:<i**  **********  *******««**^**** 

r*  * 

*  Ir-ERANCHING    ROUTINES  *) 

I*  *) 

^*** *******  * ***********************************************  J 

*  QUITEFBOE   IS    CALLiE    HHENEVER    A    QUIT    STATEMENT    IS  *' 

*  ENCOUNTERED     WHILE    NOT    WITHIN    THE    SCOPE    OF    A    LOOP.  *' 
* *] 

PROCEEORE    QCITERROR; 

EEGIN 

WRITE     (LISTF,  •***«*  ATTEMPT  TO  "QUIT"  WHILE  NOT  '); 

WRITEIN  (LISTF,  'INSIDE  A  LOOP.'); 

PERBOR 
END;  (*  QUITERRCR  *) 

^*********** *************** ********************************) 

/*-54 *i 

i*    PQUIT    GENERATES     POTENTIAL    ADDRESS     SPACE    WHOSE    JMPP  * 

(*    POINTS    TO   THE    MOST    CURRENT    CODE    NODE    ON    THE    ENDLOOP  *' 

(*    STACK;    THUS,     CONTECL    WILL    LEAVE   THE    MOST   CURRENTLY  « 

(*    EXECUTING    LOOP    DURING    TI-59    EXECUTION.        NOTE    THAT    THIS    *' 
(*    If^ELEMENTATION    WILL    NOT     ALLOW    LINE*    TO    FOLLOW     'QUIT'  *] 

j* *' 

FROCECURE    Ps^UIT; 

EEGIN 

IF    ENDLCOPSTACK   =     NIL    THEN 

CUITEBRCR 
ELSE 
EEGIN 

GENKEY    (K    GTO)   ; 
SETrWCoMP"  (ENDIGOPSTA CK)  ; 
SCAN     (TOKNUM)  ; 
IF    TCKNUM    =    NUMEERTOK    THEN 
EEGIN 

PSUBERROR; 

WRITE  (LISTF,     ******     "QUIT"    DOES    NOT    ACCEPT    '); 

WRITSLN    (LISTF,    'LINE    NUMBERS    THIS    IMPLEMENT.'); 
END 
ELSE 

CICSELINE 
END 
END;  (*    PQUIT    *) 

^ **********************************************************  J 

(*-56-*) 

PROCEDURE    FTHENLINE;  FORWARD; 

^ *********************** ***********************************) 
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(*-5  5 * 

*    PTEENELSE    DETERMINES    WHETHER    THE    ELSE    BRANCH    OF    AN  *) 

I*    IF-THSN-EISE     IS    LINE-ORIENTED     (LINS#)     OR    LOOP-ORIENTED    *' 
I*     (•QUIT*);    APPROPRIATE    ROUTINE    IS    CALLED    TO    SET    JUMP.  *J 

|:tc *1 

PROCEDURE    PIHENSISE; 


;key  (K  GTO)  ; 
:ENLINE" 


BEGIN 

SCAN  (TCKNUM)  ; 
IF  TCKNUM  =  NUMBERTOK  THEN 
BEGIN 
GEXKEY 

pie: 

END 
ELSE  IF  TCKNUM  =  QCITTOK  THEN 

PCUIT 
ELSE 
EEGIN 

WRITE    (LISTF,  ******  "IF-THEN-SLSE"  LIMITED  TO  »); 
WSITELN  (LISTF,  '"QUIT"  OR  LINE  NUMBERS.'); 
PERROR 
END 
END;  (*  PTHENELSE  *) 

^«***«*«««:«c«  ************************  ***«=«£«******««*«**«♦***) 

{*-5  6 *) 

(*    PTHENIINE    SETS   THE    LINE- ORIENTED    JUMPS    FOR    THE    IF-THEN    *' 
I*    OR    IF-THEN-ELSE    STATEMENTS.  * 

|« * 

EROCEEURE    PTHENLINS; 

BEGIN 

SETJMPEXT  (XNUMBER  (ACCUM,  ACCINX)  )  ; 
GSNKEY  (-2! 


GENKEY  (-2  ; 

CKNUM)  ; 


SCAN  (TCKNUM)  ; 

IF  TOKNUH  =  ELSETOK  THEN 

PTHENELSE 
ELSE 

CIOSEIINE 
END;  (*  PTHENLINE  *) 

(*-5  7 * 

'*    PTEENCUIT    SETS    THE    LOOP-ORIENTED    JUMPS     FOR    IF-THEN    OR       *] 

(*    IF-THEN-ELSS    STATEMENTS.  *' 

I* #< 

tROCEEURE    PTHENQUIT; 

BEGIN 

IF    ENDLCCESTACK    =    NIL    THEN 

CDITEERCR 
ELSE 
BEGIN 

SETFWEJMP     (ENDICOPSTACK)  ; 

SCAN     (TOKNUM)^; 

IF    TOKNUM    =    ELSETOK    THEN 

PTHENELSE 
ELSE 

CIOSELINE 
END 
END;  (*    PTHENQUIT    *) 
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(*    PIF    DEIERMINES    THE    TYPE    OF    'IF'    STATE.12NT;     IT    WILL  *^ 

j*    CALL    THE    BSQUIEED    SET    EOUTI^JES    FOR    UNSrEUCTURED    JUMPS       *] 
(*     (LINE    CE    LOOP    ORIENTED)      OR    PERFORM    THE    SET    UP    ITSELF         * 
(*    FOE    SIEDCTUEEB    JUCES.  *; 

j* *j 

PROCEEURE    PIF; 

BEGIN 

PCONDITION; 

IF    TOKNUM    =   THENTOK    THEN 
BEGIN 

SCAN     (TOKNUM)  : 

IF    TOKNUM    =    NOHEERTOK    THEN 

PTFENLINE 
ELSE    IF    TOKNUM    =   QUITTOK    THEN 
EIHENQUIT 

FEREOR 
END 
ELSE 
EEGIN 

PUSHCCDE     (NEWCCDE     (K     NOP),     ENDIFSTACK); 
CPCUEoI.BAKP    :=    ENDIFSTACK; 
ENDIFSTACKal.  BAK?    :=    CPCUS; 
PUSHCCDE     (NEWCCDE     (K    NOP),     IFSTACK); 
SEIFWDJMP     (IFSIACK)  ; "" 
CLCSELINE 
END 
END;  (*    PIF    *) 

/:0c— S  Q— -.——  —  —  —  —  —  —  —  —  —  —  —  ——  — —  —  _  _—  _•_  .— _  —  —  —  ——  —  _-.—  _  —  —  _  —  —  —  —  —  —_— _4tl 

(*  ELSE    AEJUST     PERFOBMS    HOUSE-KEEPING    ON    THE    VARIOUS     'IF'  ** 

(*  STACKS    DEPENDENT     UPON    THE    FGEM    OF    THE    STRUCTURED    'IF'  * 

(*  STATEMENT    ENCOUNTERED;    IF-ENDIF    REQUIRES    A    DIFFERENT  *\ 

(*  SEQUENCE    OF    PUSH/PCP    STACK    THAN    DOES    IF-ELSE- ENDIF    OP  *' 

(*    IF-ELSEIF-ELSE-ENCIF.  *1 

I* *' 

PEOCEEUHE    ELSE_ADJUSI; 

EEGIN 

»ITH    ENDIrSTACKa    DC 
EEGIN 

IF    EAKP    <>    NIL    THEN 
EEGIN 

BAKPa).BAKP    :=    NIL; 
BAKPt).  JMPpa.EAKP     :=    NIL; 
BAKP     :=    NIL 
END 
END 
END;  (*    ELSS_ADJUST    *) 
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(*-6  0 

(*    PEISEIB    EERFOEMS     A    SEQUENCE    OF    STACK    MANIPULATIONS    IN 
(*    ORDER    TO    GENERATE    THE    ADDRESS    SPACES    AND    JUMPS    WHICH 
j*    IKFLEMENI    THE    ELSZIF    CONSTRUCT. 

PROCEDURE    PELSEIF; 
VAR       JCCCE     :    CODEPTR; 

BEGIN 

ELSE    ADJUST; 

genki:y    (K   GTO)  ; 

SETFWDJMP"  (ENDIFSTACK)  ; 

JCODE    :=    POPCODE     (3FSTACK) ; 

PUTKEY     (JCODE)  ; 

PCCNDITION; 

PUSHCODE     (NEWCODE     (K    NOP)  ,    IFSTACK)  ; 

SETFHDJHP     (IFSTACK)  ;~ 

CLOSELINE 
END;  (*    PEISSIF 

f:tc— ^  1_  — ..._  _— _  _  ——  _  —  •_.____  «.__  —  —  _«__—  —  ____—__  _____  _  _____ 

*  PEISE    IS    SIMILAR    TO    ELSEIF    EXCEPT    IT    DOSS    NOT    PARSE/ 

*  GENERATE    CODE    TO     EVALUATE    A    BOOLEAN    EXPRESSION. 

PROCEDURE    PELSE; 

VAR       JCCCE    :    CODEPTR; 

BEGIN 

ELSE    ADJUST; 

GENKEY     (K    GTO)  ; 

SETFWDJKP"  (ENDIFSTACK)  ; 

JCODE    :=    POPCOEE     (IFSTACK); 

PUTKEY     (JCODE)  ; 

SCAN     (TOKNUM)  ; 

CLOSELINE 
END;  (*    PELSE 

^:«c*«*#*4c:«t*******  4:*  ***************************  «***«♦«***«* 


*) 
**) 
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-**! 


(*-6  2 * 

(*    PENDIF    CLOSES    UP    THE    SCOPE    OF    A   STRUCTURED    'IF'  * 

(*    CCNSTBtCT    3Y     POPPING    THE    AFPBOPRIATS    STACKS    AND  * 

(*  INSERTING  AND  DISCARDING  CODE  WHICH  HAD  BEEN  STACKED;  * 
(*  DISCARDING/INSERTING  IS  DEPENDENT  UPON  THE  PARTICULAR  * 
j*    TYPE    OF     'IF*     CONSTRUCT     (IF-ENDI?    OR    IF-ELSE- ENDIF) 

PROCEDURE    PENDIF; 

VAR       EUMPC,    JCODI    :     CCDEPTR ; 

BEGIN 

WITH    ENCIFSTACKS    DO 
BEGIN 

I?    EAKP    <>    NIL    THEN 


BEGIN  (*    NC    ELSE/ELSSIF    HAS     BEEN    SEEN    *) 

EAKPa).5AK?     :=    NIL;  (*    NULLIFY    POINTERS    *) 

BAKP    :  =    NIL; 


DUMPC     ;=    PCPCODE     (ENDIFSTACK)  ;  (*    CLEAR    STACK    *) 

DUMPCS.ADDR    :=    -1  ; 

JCCDS     :=    PCPCODE     (IFSTACK)  ;  (*    INSERT    ENDIF    *) 

PUTKEY     (JCOEE) 
END 
ELSE  (*    ELSE/3LSEIF    HAS    BEEN    SEEN    *) 

BEGIN 

JCODE     :=    PCPCODE     (ENDIFSTACKi  ;         (*    INSERT    ENDIF 


JCODEQ.ADDR    :=    0;      (*    MARK    TERMINAL    NODE    OF    JUMP 
PUTKEY     (JCCDE)  (*    ELSE    ADJUST    HAS     ALRE-"" 

END  (*      CLEIRSD    ENDIFSTACK. 


END; 
SCAN     (TCKNUM)  ; 

CLCSELINE 
END;  (*    PENDIF    *) 
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{* 

/*  I/C    COMM 

^***  *«;«>♦«:*♦♦****♦***  ******* 

(*-84-*) 

FROCEDURE  WRITLN  (VAB  WFILE 

MSG    N 


******************************** J 

*) 
AND    ROUTINES  *' 

* 
******************************** 


6 


MSGFILE  :  TEXT; 
:  INTEGER)  ; 


FORWARD; 


^*********** ********************************* **************) 


[*-63 

f*  PD 


'* 
I* 

(* 

* 
(* 
f* 
(* 

*- 


OR 
US 
LC 
RE 
VA 
ST 
BY 


ATA  GENERAT 
lENTED  JUAP 
E  AT  THE  ST 
OPS,  SER'S, 
AD  MAPPING 
LUES  FCDND 
ORES  THE!1  I 
SUBSEQUENT 


ES  SINGLE  N 

REFERENCES 

ART  CF  A  PR 

OR  FUNCTIO 

MEANINGLESS 

AS  ITS  PARA 

N  AN  ARRAY 

READ  COMMA 


CP  TO  PROTECT  FROM  LINE- 
;  THIS  COMMAND  IS  INTENDED  FOR 
OGRAM  SINCE  ITS  USE  WITHIN 
KS  WOULD  RENDER  THE  DATA  TO 

THIS  ROUTINE  READS  THE  DATA 
METERS,  COUNTS  THEM,  AND 
OF  RECORDS  WHICH  IS  ACCESSED 
NDS. 


.*] 

*' 
*j 
*l 

*' 
*] 
*' 
*1 
*j 
.*) 


PROCEEURE  PCATA; 


VAR   EATASIGN 

BEGIN 

GSNKEY     (K    NO 
SCAN     (TCKTUM 
WHILE     fTOKNU 
BEGIN 

EATASIGN 
IF    IGKNO 
EEGIN 
IF    T 
DA 
SCAN 
END; 
IF    CATAI 
EEGIN 
PWAR 
WRIT 
WHIT 
WRIT 
DATA 
END; 
EATALIST 
DATALIST 
DATAIX    : 
SCAN     (TO 
IF    TOKNU 
SCAN    ( 
END; 
CLCSJLINE 
END; 


CHAR  ; 


M     IN    SIGNTOKS)     OR     (TOKNUM    =    NUMBERTOK)     DO 


:=    BLANK; 
M     IN     SIGNTOKS 

OKNUM    =    MINUS 
TASIGN     :=    •-• 
(lOKNUM) 


THEN 
TCK  THEN 


X  =  REGEASE  +  1  THEN 


N; 

E 

ELN 
IX  ; 


LISTF,' * 
LISTF,»C 
LISTF,  • 
=  1 


(.  DATAIX.)  .NU 
(.  DATAIX.)  .SI 
=  EATAIX  >  1; 
KNUM)  ; 

M  =  COKMATOK  THEN 
TOKNUM) 


****  EXCEEDED  DATA3T0RE  •); 
AP  =  '  ,  RSGBAS2  :  1)  ; 
...RESET  DATA  INDEX  TO  I.'): 


MB  :=  ACCUM; 
GN  :=  DATASIGN; 


(*  PDATA  *) 
^ ****************************************************** ****^ 
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(*_6a *) 

(*    PREAD    CNLY    GENERATES    A    NCP    INSTROCTION    TO    ALLOW    FOR  *' 

(*    LIN5-CRIENTED    JUME    REFERENCES;     OTHERWISE,    THIS    CC.MMAND  *] 

(*    WRITES    TKE    READF    PILE    WHICH    INDICATES    DATA    VALUES    FOP  * 

(*    RESPECTIVE    REGISTERS    AND    THEIR    WBASIC    VARIABLE    NA«ZS;  *' 

(*    THE    READF    FILE    IS    USED    TO    INPUT    DATA    PRIOR    TO    PR0GRAI1  *] 

(*    EXECUTION   ON     THE    TI-59,     THUS,    SAVING    FROGRA.'I    STEPS.  *' 

(*    THE    CONSTRUCT    IS    INTENDED    FOR    USE     AT    THE    START    OF    A  *' 

(*    PPCGRAM.       IF    NESTED    WITHIN    THE    PROGRAM,     LOOPS.     SBE'S,  * 

(*    AND    FN'S    WOULD    RENDER    THE    DATA/READ    MA?    MEANINGLESS.  * 

|:4c ♦^ 

PROCEDURE    PREAD; 

VAR       IDSICT    :    SLCTPTR; 

BEGIN 

GENKEY     (K    NOP)  ; 
IF    FIRSTRIAD    THEN 
BEGIN 

REWRITE     (READF,    • N AME=RE ADF. WB ASIC. A • ) J 
WRITLN    (READF,     MSGF,     9)  ; 
FIRSTREAD     :=    FALSE 
END; 
IF    NOT    INDEXERROR    THEN 
BEGIN 

SCAN     (TOKNUM)  ; 
WRITELN    (READF) ; 
WHILE    TOKNUM    =    IDENTOK    DO 
BEGIN 

IDSLOT    :=     IDLOOKUP     (flCCUM,     ACCINX) ; 
WITH    IDSL0T2    DO 
BEGIN 

IF    READIX    >=     DATAIX    THEN 
BEGIN 
P  W  ARN  * 

write'        (LISTF,     ******    READ    PAST    DATA    '); 
WRITE  (LISTF,     • I N DEX . . . IGNORI NG    •); 

WRITELN     (LISTF,     'SUBSEQUENT    READ/DATA.'); 
WRIT  EL  N     (READF)  ' 

WRITE    '      (READF,'******    READ    PAST    DATA    •); 
WRITE  (READF,     •  INDEX. .. SU5SEQ UENT    '); 

WRITELN    (READF,     'READ/DATA    IGNORED.'); 
INDEXERROR    :=    TRUE; 
PRECOVER 
END 
ELSE 
BEGIN 

WRITE         (READF,    '     '  :5)  ; 

WRITE  (READF,    DAT ALiST  (. R EADIX . )  . S IGN) ; 

WRITE  (READF,    DAT ALIST  (. R EADIX. )  . NU MB)  ; 

WRITE  (READF,     •     '  : 2)  ; 

ZEBCPAD     (READF,    REGNO,     2)  ; 
WRITELN     (READF,     '     •:3,    IDENT); 
READIX    :=     READIX    ^     1; 
SCAN    (TOKNUM); 
IF    TOKNUM     =    COMMATOK    THEN 
SCAN     (TCKNU?!) 
END 
END 
END 
END 
ELSE 

PRECCVER; 
CLCSEIINE 
END;  (*    PREAD    *) 
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(*-6  5 

f*    PRESICHE    GENERATES    A    SINGLE    NOP    XO    PROTECT    FROM    LINE- 
OEIZNTED    JUMP    REFERENCES.        IN    THIS    IMPLEMENTATION, 
THIS    CONSTRUCT    IS    NOT    OF    GREAT    VALUE    SINCE    DATA/R^AD 
STATEMENTS    ARE    SUGGESTED    FOR    USE    AT    THE    START    OF    A 
PROGRAM    CNLY;    THIS    ROUTINE    RESETS    THE    READ    INDEX    TO 
ITS    INITIAL    VALUE     (=1)  . 


* 
* 


*) 

*) 

*) 

*) 
* 

* 


EROCEEURE    PRESTORE; 

BEGIN 

GENKEY     (K    NOP)  ; 

REACIX    :=~1; 

SCAN     (TCKNUM)  ; 

CLCSELINE 
END;  (*    PRESTORE    *) 

/*******««:*j)[***:«c****««**:Ot**  **********************  *♦♦**♦♦***) 


f*-6  6 

*  PINfUT  PARSES  A  LIMITED 

*  STATEMENT;  THE  LIST  OF  I 

*  VARIAEIE  NAMES  ONLY. 

(* 


*i 

FORM    OF    THE    WBASIC    "INPUT"  * 

NPUT    PARAMETERS    MAY    CONSIST    OF    * 

♦' 


PROCEEURE  PINPUT; 
VAR 


TENEIG 
INPVAR 


SLCTPTB; 


EEGIN 
SCAN 

GENKE 

TENBI 

HHIIE 

EEG 

I 

T 

G 

G 

G 

G 

G 

G 

S 

I 

END 

IF    TE 

GEN 

CLOSE 

END; 


(TCK 
Y     (K 

G    :  = 
TCK 

lis 
NP7A 

ENEI 
ENKE 
EKKE 
ENKE 
ENKE 
ESKE 
ENKE 
CAN 
F  TO 
SCA 

NBIG 

KEY 

LINE 


NUM)  ; 

_csi  ; 
-1 ; 

NOM     = 


(*    FLAG    CHECKS    IF    INPUT    V  AR  S    ARE    LISTED    *) 
IDSNTCK    DO 


TE 

IN 

K 

K"* 

K" 

ITT 


(TOKN 
K  NU  M 
N    (TO 

=    -1 

(K_R3 


IDLOCKUP     (A 

INPVaRS.RSG 
NDIG)  ;     (*    R 
PVAR3. REGNO 
INT)  ; 
RS)  ; 

FVARa. REGNO 

UM)  ; 

=    COMMATOK 

KNUM) 


CCUM,    ACCINX)  ; 
NO    DIV    10; 

EG    IN    WHICH    INPUT    TO    3E    STORED    *) 
-     (TENDIG    *    10)  ); 

(*    CLOSES    DISPLAY    REG    *) 


THEN 

); 


THEN    (*  PARAMETERS  SEPARATED  *] 

{*  BY  COMMAS  OR  ELANKS.  *] 

(*    GENERATES  A  R/S  IF  "INPUT"  *] 

(*  IS  USED  WITHOUT  A  VAR  LIST  * 


(*  PINPOT  *) 
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i:- 

I:. 


6  7 

PPEINT    PASSES    A    LIMITED     FOPM    OF    THE    WBASIC    "PRINT" 
STATEMENT;    IT    ALLCftS    EXPRESSIONS,     VARIABLE    NAMES,     ANE 
LITERAL    NUMERICS     IN    THE    LIST    OF    PARAMETERS. 


PROCEEURE    PERINT; 


BEG 
S 

w 


c 

END 


IN 

CAN     (TCKNDJ1); 

HUE    ICKNUM    IN    BEGIN    EXPRTOKS 
BEGIN 
PEXER; 
IF    EC100    THEN 

GENKSY     (K    PRT) 
ELSE 
BEGIN 

GENKEY     (K    PAUSE)  ; 
GENKEY     (K"ES) 
END; 
IF    TOKNUIl    =    COMMATOK    THEN 
SCAN    (TOKNUM) 
END: 
F    EC100    THEN 

GENKEY  (K  ADV)  ; 
LOSELINE   " 


DO 


(*    WITH    PC100 
WITHOUT    PC  100 


CAN    SEPARATE    ITEMS    BY 
COMMAS    OR    BLANKS. 

(*    WITH    PCI  00 
(*    PPRINT 


*) 
*) 

*) 
*) 

*) 
*) 
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':Jc**#  ******  «*«******♦«***«*  ********************************* 

*  CTHER   COMMAND    WORD    PARSE/GENERATE    ROUTINES  *' 

>**************************«*******************************' 


(*-6 


f* 

I* 

(*- 


CPTICN    SETS/RESETS    THE    CPTICN    TOGGLES    WHICH    ALLOW    THE 
SEE    OUTSIDE    CONTROL    OF     COMPILER    OUTPUTS:     NOTE    THAT 
HIS    CONSTRUCT    IS    NOT    THE    SAME    AS    THE    OPTION    STATEMENT 
F    WBASIC;    IT    IS    INTENDED    FOR    USE    AT    THE    BEGINNING    OF 
HZ    SCURCE    PROGRAM;    USE    ANYWHERE    ELSE    MAY    PRODUCE 
NEXPECTED    RESULTS    AND/OR    OPERATING    SYSTEM    ERRORS. 


* 
*' 
*j 
** 
*i 
*\ 
.** 


PROCEDURE    PCPTION; 


VAR 


SWITCH 
TOGGLE 


BOOLEAN; 
INTEGER; 


BEGIN 

GENKEY     (K    NO 

SCAN   (tckt;um 

WHIIE    NCT     (T 
BEGIN 

SWITCH    : 
IF    TCKNU 
BEGIN 
IF   T 
SW 
SCAN 
END; 
IF    TCKNU 
BEGIN 
TCGG 
IF   T 
CA 


p.- 

OKNUM     IN    TRAIITOKS)     DO 

=     TR  US  * 

M     IN     SIGNTOKS    THEN 

OKNUM    =    MINUSTOK    THEN 
ITCH     :=    FALSE  ; 
(TOKNUM) 

M    =    NUMEERTOK    THEN 

LE    :=     XNUMBSR     (ACCUM,     ACCINX) ; 
OGGLE    IN     (.0. .8. )     THEN 


EN 
ELSE 

BE 


SE    TOGGLE    OF 

0  :    LIHK59 

1  :    PC100 

2  :    OPTPAR 

3  :    OPTNOP 

4  :    CODUMP 

5  :    SYEUMP 

6  :    DSDUMP 

7  :    TOKCUT 

8  :    TOKIIS 

D  (*    CASE 


) 


TRUE; 

SWITCH; 

SWITCH; 

SWITCH; 

SWITCH; 

SWITCH; 

SWITCH; 

SWITCH; 

SWITCH 


GIN 

PWARN; 

WRITS 

WRITELN 

D 


EN 
END 
ELSE 
BEGIN 
PWAR 
WRIT 
WRIT 
END; 
SCAN     (TOKNUM) 
END; 
CLCSELINE 
END; 


(LISTF,  •****=« 
(LISTF,  ACCUM) 


*  NO  SUCH  OPTION 


N; 

E     ( 

ELN  I 


LISTF, 
LISTF, 


I  ***** 
• -8..0 


OPTION  PARAMETERS 
.  +  8  ONLY.  •)  ; 


ABE  •)  ; 


(*  POPTICN  *) 


^******«**** *********************************************** J 
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*    PNOLEI    PAESES    AND    GENERA TES^CODE    FOR    AN    ASSIGNMENT  *) 

i*    STATEMENT    WHICH    DOES    NOT     BEGIN    WITH    THE     'LET'     COIIMANE.     *| 

PROCEDURE    ENOLST; 

VAR         RESULT    :     SLOTPTS; 

BEGIN 

RESULT    :=    IDLOOKUP     (ACCQM,    ACCINX)  ; 

SCAN     (TCKNUM)  ; 

IF    TCOUM    <>    EQUALTOK    THEN  (*    •=•     *) 

PERROR 
ELSE 
BEGIN 

SCAN  (TOKNUM)  ; 

PEX^R  • 

GENKEY  (K  STO); 

If    RESULToI.TYP    =    VARID    THEN 

GENKEY     iRESUITo).  REGNO) 
ELSE    IF    RESULTS. TYP    =    FNPID    THEN 

GENKEY     (RESUITo).  FNREGNO) 
ELSE 

PERROR 
END 
END;  (*    PNOLET    *) 

^*«*«  ♦«*♦♦***<'******  *******  ♦♦A*****************************) 

ii^—~l  Q—— —  —  — «  .._  —  ..^  —  —  —  •_•—__  __  —  _..—  —  ——  .—  —.—  _..  ___..  —  .__  —  —— _4e 
*    PLET    PARSES    AND    GENERATES    CODE    FOR    A    'LET*    STATEMENT.       * 

PROCEDURE    PLET; 

BEGIN 

SCAN     riCKNUM)  ; 

PNOLET 
END;  (*    PLET    *) 

(«*****«**«*  *:je  *******************************  *****:«t****  **:$:*  J 
/*-7  1 #^ 

(*    PREM    GUARDS    AGAINST    USE     CF    A    GOTO    DIRECTED    TO    A    REM    EY    *) 

(*    CAUSING    GENERATION    OF    A     NODE     (LOADED    W/    A    NOP    INSTRUC) 

(*    WHICH    CAN    BE    REFERENCED    BY    A    J:^rP    POINTER;    THE    SC. 

(*    HAS    RESFCNSIBILITY    FOR    SKIPPING    OVER    THE    CMT    TEXT 

(* *j 

PROCEDURE    PREM; 

BEGIN 

GENKEY     (K    NOP)  ; 

SCAN     (TCKTIUM) 
END;  (*    PREM    *) 

^:«c***:0>*****  *******  *************************  ****************) 


STRUC)  *) 
CANNER  *) 
T.  *i 


161 


I 


f4('— 7  2~"'""'~'~~  —  — .  —  —  ~  —  —  — — — —  __—  ——  —  —  —  __  —  —  —_  —  —  —  _—__  —____  —  _««._  »_«*i 

*  PGCTO    GENE3AIES    TEE   TI-5  9    GTO    STATEMENT    AND    ITS  ** 

*  POTENTIAL    ADDRESS    SPACE;     THE    JUMP    POINTER    FROM    THE    1ST    *] 

*  NODE    Cf    THIS     ADDRESS    SPACE    IS    POINTED    TO    THAT    NODE    IN       * 

*  THE    CODE    DATA    STRCCTORE     WHICH    IS    THE    START     (OR,     IN    THE    * 
(*    CASE    CF    FORWARD    JUMPS,    THE    POTENTIAL    START)     OF    CODE  * 
h    GENERATED   FOR    THE    WBASIC    LINE    NUMBER    REFERENCED    IN    THE    *' 
(*    GOTO    COMMAND.                                                                                                                  *) 
^* *, 

EROCZCURE    PGCTO; 

BEGIN 

GENKEY     (K    GTO)  ; 

SCAN     (TCKTUM)  : 

IF    TOKNDM    O    NUMBEBTOK    THEN 

PERRCR 
ELSE 
BEGIN 

SETJMfEXT     (XNUMEER     (ACCUM,    ACCINX)  )  ; 
GENKEY    (-2); 
GENKEY    (-2) 
END; 
CLCSELINE 
END;  (*    PGOTO    *) 

^♦****#:«i*«*«**  *****************************************  ♦*:**) 

(*-7  3 * 

(*    PGCSUE    GENERATES     A    CALL    TO    A    SUBROUTINE    REFERENCED    BY  *] 

I*    MEASIC    LINE     NUMBER;    NOTE    THAT    ALTHOUGH    WBASIC    CALLS  *j 

(*    SUBROUTINES    BY    LINE    NUMBER-     THE    TI-59    CODE    GENERATED  * 

(*    CALLS    ft    SUBROUTINE    BY    A    LAoEL    NAME;     AN    EXTERNAL    JUMP  *] 

(*    IS    SET     (AS    IN    THE    GOTO),     HOWEVER,     RESOLUTION    OF    THE  *' 

*  JUMP    WILL   BE     MADE    BY    INSERTING    THE    LABEL    USED    IN    THE  *] 

*  CALL    IN    FRONT    OF    THE    NODE    REFERENCED    BY    THE    JMPP;     THIS  *| 

*  INSERTION   IS     DONE     AFTER     ALL    CODE    HAS     BEEN    GENERATED. 

*  NOTE    THAT   THIS    ROUTINE    NEITHER    CHECKS    FOR    NOR    DOES    IT  *] 

*  KNCW    CF    THE    EXISTENCE    OF    A    RETURN     STATEMENT    IN    THE  * 

*  SEQUENCE    OF     SOURCE    CODE     ASSUMED    TO    BE    THE    G0SU3    BODY;  * 

I*    IF    THE    USER    DOES    NCT    PROVIDE    A    RETURN    STATEMENT,    THEN  *j 

(*    NO    CORRESPONDING    TI-5  9    INVSBR     (S3R    RETURN)     WILL    BE  *' 

(*    GENERATED,    AND    THE    S5R    RETURN    REGISTER    IN    THE  *j 

(*    CAICULATCR    WILL    NEVER    BE    CLEARED    0?    THAT    SBR    CALL.  *' 

^ijt *j 

PROCEDURE    PGOSUB; 

BEGIN 

GENKEY     (K    SBR)  ; 

SCAN     (TOKUUM)  : 

IF    TCKNUM    <>     NUMBERTOK    THEN 

PERRCR 
ELSE 
BEGIN 

SETJMEEXT     (XNUMEER     (ACCUM,     ACCINX)); 
GEKKEY    (NEWLBL) 
END; 
CLCSELINE 
END;  (*    PGOSUB    *) 
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/*_7U * 

(*    PRETUEN    GENERATES    THE    RETURN    FROM    A    SaSRCUTINE.  * 

I*    STRUCTURED    PROGRAMMING    DISCIPLINE    DEMANDS    A    RETURN    FOR  * 

(*    EACH    SCBHOUTINE    CALL;     NOTE    THAT    THE    TI-59    HAS    A    LIMIT  *) 

(*    OF    SER    RETURN    ADDRESSES     WHICH    CAN    3S    STACKED;     THE    USER  *" 

I*    SHOULD    REMEMBER    THAT    THE     WBASIC    RETURN    STATEMENT    IS  * 

(*    THE    CNLY    ONE    WHICH    WILL    GENERATE    THE    TI-59    INVSBR  * 

(*    FOR    A    GCSUB    GENERATED    SBR    CALL     fFUNCTIONS    GENERATE    SBR  * 

(*    AND    INVSBR    ALSO,     BUT    THEY    DO    THIS     AS     A    RESULT    OF    THE  * 

(*    FNEND    STATEMENT    OB    A    ONE-LINE    FUNCTION)  .  * 

I* * * 

PROCEDURE    PRETURN; 

BEGIN 

GENKEY     (K    INVSBR)  ; 

CLC  *^  ELINE" 

END;     "  (*    PRETURN  *) 

^;4c4e4c:4c:C<4>:»4>:4':«c4>4(4c4c4(:t(4c«4c:»*4e**4'*  ******  *4c  **********************  **) 

(*-7  5 *) 

(*    PPAUSE    GENERAIES     (82)^(31)     WHICH    ARE    ACTUALLY     A    VOID  *) 

(*    CODE    ANE    THE     'LRN'    KEY:     WHEN    ENTERING    HIS    PROGRAM    INTO  *) 

(*    THE    CALCULATOR    THE    USER     MUST    ENTER    'STO    31»     INSTEAD    OF  *) 

(*     (82)  (31)     WHICH    CANNOT    BE    ENTERED    DIRECTLY    ANYWAY;    THEN  *] 
(*    THE    dSER    MUST    BACKSTEP    AND    CHANGE    THE    ORIGINAL     'STO    31'*' 

(*    BY    ISSCING    THE    FOLLOWING     EDITING    KEY    STROKE    SEQUENCE  *j 

I*    TO    THE    CALCULATOR    IMMEDIATELY    AFTER    ENTERING    THE  * 

(*    'STO    31':       BST,BST,NOP,SST.       THIS     WILL    REVISE    THE  *1 

I*    ORIGINAL    'STO    31  «     TO    'NOP    31«;    WHEN    ENCOUNTERED    BY    THE  *) 

(*    CALCULATOR    THESE     2    INSTRUCTIONS    WILL    STOP    EXECUTION    BY  *' 

I*    SHIFTING    THE    CALCCIATOR    INTO    THE    LEARN     (LRN)     MODE;  *] 

(*    IN    ORDER    TO    RESUME    EXECUTION,     THE    USER    MUST    ENTER  * 

f*     'LRN'      (PLACING    THE    DISPLAY    REG    BACK    INTO    VIEW)  *' 

*  FOLLOWED    BY     •  R/S  •      (WHICH    RESUMES    THE    PROCESSING    MODE);  *j 

*  THIS    INTERRUPTION    CF    EXECUTION    DOES    NOT    CAUSE    ANY    SIDE  *! 

*  EFFECTS    AND    PROVIDES    AN    ACCURATE    INDICATION    OF    THE  * 

*  LCCATICN    OF     ANY     'PAUSE'     STATEMENTS    PLACED    IN    THE  * 

*  WBASIC    SOURCE   CODE;    THIS     IMPLEMENTATION    OF    THE     'PAUSE'  * 
[*    INSTRUCTION     PROVIDES    A   CONVENIENT     AND    RECOGNIZABLE  * 

*  DEBUGGING/TRANSLATION    TOOL    WHICH    CARRIES    A    LOW  * 

*  OVERHEAD    IN     TERMS    CF    REGISTER/PROGRAM    STEP    USE.  * 
I* * 

PROCEDURE    PPAUSE; 

BEGIN 

GENKEY     (82);  (*    VOID       *) 

GENFEY     (31);  (*    LEARN    *) 

CLOSELINE 

END;  (*    PPAUSE  *) 

^** ************ ************  ******************************** J 
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(♦-7  6 *] 

*  FSTOP  G£;nzrates  ccde  which  causes   the  ti-59  to  halt         *' 

*  EXECUTION    AND    DI3EIAY    '883«     THUS    SIGNALING    THAT    A  * 

*  PECGBAM    STOP     HAS     E2EN    ENCOUNTERED    INSTEAD    OF    A    DATA  * 

*  INPUT    CR    MAGNETIC    CARD    LINKING    INSTRUCTION.  *' 
|« *< 

PROCEDURE    ESTOP; 
VAR       I    :     L.U; 

BEGIN 

GENKEY     (K    CE)  ; 

FOB    I    :=    1   TO     3    DO 
GENKEY     (8)  ; 

GENKEY     (K    RS )  ; 

CLOSELINE" 
END;  (*    PSTCP    *) 

(*-7  7 *; 

(*    PEND    ASSUMES     THAT    THE    END    0?    THE    WBASIC    SOURCE    FILE  *' 

(*    HAS    BEEN    ENCOUNTERED    AND     WILL    INSERT    THE    END    OF    FILE  *] 

(*    CHAR    INTO    THE    TOKEN    STREA:^    CAUSING    IMMEDIATE  * 
(*    TERMINATION    OF    THE    COMPILATION    PROCESS. 

PROCEDURE    PEND; 


BEGIN 

gen: 

TOK 
END;  (*    PEND    *) 


GENKEY     (K    NOP): 
TOKNUM    :="ENDFILTOK 
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/4t***#«*««*« *********************************  ************«*! 
l^  ^ 

(*  CODE  RESOLUTION  ROUTINES  *1 

I*  *' 

(*-7  8 * 

*  PUTGOSUBLBL     USES     FEOCEDUFE    INSERIKEY    TO    ENTER    THE    LEL      * 

*  REFERENCED    BY    THE    GOSUB    CALL    INTO    THE    CODE    SEQUENCE    AT    * 

N    LOCATION    POINTED    TO    BY   TO    BY    THE    JMPP     (LBLP)  .  *) 

I* *j 

FSOCECURE    PUTGOSUBLBL    (LBL     :    LBLRNG;     VAR    LBL?    :    CODEPTR); 

BEGIN 

WITH    LEIPa.BAKFS    DO 
BEGIN 

INSERTKEY     (LBL,    SEQP)   ; 
INSERIKEY     (K    LEI,    SEQP) 
END 
END;  (*    PUTGOSUBLBL    *) 

/*_7  9 *' 

(*  FINDGCSUEL3L     SEARCHES    THE    CODE    DATA    STRUCTURE    TO    FIND  *j 

(*  SBR    CALLS    FOR    WHICH    THE    JMPP    HAS    BEEN    SET;     THESE    WILL  *' 

(*  CORRESPOND    TO    WBASIC    GOSUB    STATEMENTS;     THE    JMPP    IS  *] 

<*  FCILCWED    AND    THE    CORRECT     LABEL    IS    INSERTED    INTO    THE  * 

(*    CODE    SEQUDICE    USING   THE    BAKP    AND    PROCEDURE    PUTGOSUBLBL    *' 
I* *i 

EROCEEURE    FINDG0SU3LEL    (VAR     START    :     CODEPTR) ; 

VAR       TRAVELP,    TAIL?     :    CODEPTR; 

BEGIN 

TRAVELP    :=    STARTS. SEQP; 
T AIIP     *=    *^TA RT  • 

WHILE    TRAVELP     <>    ENDCPa),SEQP    DO 
BEGIN 

WITH    IRAVEIPS    EC 

IF     (JMPP    <>     NIL)     AND     (TAIL?a).KEY    =    K    SBR)     THEN 

BEGIN  r*    FIRST     CHECK    FOR    REDUNDANT    GOSUB    CALL    *) 

IF    JMPPS.EAKP3.  SEQPa).  KEY    =    K    LBL    THEN 

KEY    :=    JMPPa.  EAKpa.SEQP.i).s:E:QPa).  KEY 
ELSE 


PUTGOSUELBL     (KEY,    JMPP);        (*    INSERT    A    LABEL    * 

"  (*    UN  MARK    JMPP    AEER       ' 

JMPP    :=    NIL  (*    RESET    JMPP    TO    NIL    *) 


JMPPa).  ADER    :=    -  1;  (* 


jc 


END; 

TAILP    :=    TRAVELP: 
TRAVEL?    :=    rRAVELPa).SEQP 
END 
END;  (*    FINDGOSUBLEL    *) 

^4c4e«:4c:4i*:4>3«<  ««  ********************************  :«c:4e  ***♦*«*«**  *:«t**  J 
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(*    OSQPAREN     (OPTIMIZE    SQUEEZE    PARENTHESES)     REMOVES  * 

(*  ONNECESSAEY  PARENTHESES  (IN  PAIRS)  FROM  THE  CODE  DATA  * 
(*  STRUCTURE  FOR  THE  MOST  COMMON  CASES,  NAMELY  '(^CL  NN)'  * 
(*    AND    •  (<IITERAL    NUMERIO)   '.  * 

>* * 


PROCEDURE    OSQPAREN     (START    :     CODEPTR)  ; 

VAR       OPEN,    CLOSE,    TAIIP,    MOVEP    :    CODEPTR; 
CPENCT,    CLOSECT  :     INTEGER; 

(* *) 

I*    CCUNTREP    COUNTS    THE    NUMBER    OF    S^IQUENTIAL    OCCURENCES    OF    *' 
(*    KEYC    AT    A    PARTICULAR    LOCATION    IN    THE    CODE    DATA    STEUCTR    *] 
(*    STRUCTURE;    NOTE    THAT    IT    ALSO    CHECKS    FOR    JMPP    POINTERS      * 
(*    TO    THESE    KEYS.  * 

|;4c *1 

FUNCTION    CCUNTREF    (VAR    MOVE P : CODEPTR ;    KEYC : INTEGER) : INTEG ER; 

VAR       CODNT    :    INTEGER; 

EEGIN 

COUNT    ;=    0; 

WHILE     (KCVEPS.KEY     =    KEYC)      AND     (MOVEPa.ADDR    =    -1)      DO 
BEGIN 

MOVEP    :=    M0VEP3.SZQP; 
CODNT    :=    CCUNT    +    1 
END; 
COUNTREP    ;=   COUNT 
END;  (*    COUNTREP    *) 

(* ic) 

*  NUMBERDN    MOVES    ITS    POINTER    PARAMETER    PASSED    ANY    NODS         * 

*  WHICH  CONTAINS  A  NUMERIC  LITERAL  KEY  CODE  AND  HAS  NO  * 
(*  POINTER  REFERENCE;  IT  IS  ASSUMED  HERE  THAT  NO  JUMP  * 
(*  POINTER  IS  EVER  SET  IN  THE  MIDDLE  OF  A  NUMERIC  LITERAL  * 
(*  KEY    SEQUENCE,     ELSE    PART    OF    THE    NUMBER    MAY    BE    REMOVED.       * 

j* :4c 

PROCEDURE    NUMBERDN     (VAR    MOVE?    :    CODEPTR); 

EEGIN 

WHILE     (KOVEPa.KEY    IN    NUMERICKSY)     AND     (MOVEPS.  ADDR    =    -1)     DO 
MCVSP     :=    MOVEPa. SEQP 
END;  (*    NUMEERUN    *) 

(* *) 
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*  REI50V5EAEEN    TAKES    PAIRS     OF    NODES    OUT    OF    THE    CODE    DATA       *j 

*  STBUCTDRE;    NOTE    THAT    THIS    PROCEDURE    DOES    NOT    KNOW    WHAT    *' 

*  CODE    II    IS    REMOVING;     THAT    IS    DEFINED    BY    OSQPAREN.  * 

):tc- ->-> -> 4e 


PROCEDURE    REMOVSPAREN     (VAR    OPEN,     CLOSE 

OPENCT,    CLOSECT 
BEGIN 
REPEAT 

0PEN2.SEQP     :  =   OPENo).  SEQPa.SEQP; 
OFENCT    :=   OPENCT    -    1  : 
CLOSES.  SEQP    :=    CICSEo).  S  EQP3.  SEQP  ; 
CLOSECT    :=    CLOSECT   -     1 
UNTIL     (CPENCT    =    0)     OR     (CLOSECT    =    0) 
END; 


CODEPTR; 
INTEGER) 


(*    REMOVEPAREN    *) 


V 


•  -* 


BEGIN  (*    CSQPA 

MOVEP     :=    START 
WHILE    MCVEPa.S 
BEGIN 

IF     (MCVEP2 
BEGIN 
OPEN     : 
OPENCT 


REN     MAIN    *) 
EQP    <>    NIL 
.KEY    =    K    OP 


IF 


(MOV 
iEGIN 
CL 
MO 
CL 
IF 


END 
ELSE    i: 


=    TAIIP; 

:=    CCUNTRE 
VE?3.KEY=K 
N 

OSE  :=  MOVE 
VEP  :=  MOVE 
CSECT    :=    CO 

CLOSECT    > 
REMOVEPAREN 


DO 
AREN) 

P     (MOV 
RCL)     A 

Pa).  SEQ 
Poi.SEQ 
UNTBEP 
0  THEN 
(OPEN 


AND     (ilOVEPo).  ADDR    =    -1)     THEN 


(*    3 

K    OPAREN 

ND     (MUVEPS.A 


EP, 


ET    OPEN    PTR      *) 
DDR=-1)     THEN 


P;  (*    SET    CLOSE    PTR    * 

Pal.SSQP;  ( 

(MOVEP,     K    C 

(*    IF    'Ex 

,    CLOSE,     OPE 


*    MOVE    AHEAD    *) 
PAREN) ; 

TRAS,     DELETE    *) 
NCT,     CLOSECT) 


BEGI 
WH 

CL 
MO 
CL 
IF 


\'> 


EY    IN 
MCVEPa).ADDR    = 


END; 


END 


END 
END- 
TAIL?    :  = 
MCVEP    := 


ILE  MCVSPo). 
MOVEP  :=  .^0 
OSE  :=  MOVE 
VEP  :=  MOVE 
OSECT    :=    CO 

CLOSECT    > 
REMOVEPAREN 


SEQPS. 

VEP3.S 

Po).  SEQ 

UNTREP 

0    THEN 

(OPEN 


NUMERICKEY)     AND 
-1) 

KEY    IN    NUMER 

EQP;      (*    PASS 

(*    S 

P'  i 

(MOVEP,     K    C 

(*    IF   "EX 

,    CLOSE,    OPE 


THEN 


ICKEY    DC 

OVER  NUMBER  * 
ET  CLOSE  PTP  * 
*  MOVE  AHEAD  * 
PAREN)  ; 

TRAS,     DELETE    *) 
NCT,     CLOSECT) 


MOVEP: 
MOVEPol.SEQ 


(*    OSQPAREN    *) 

^:4c:4c  :4c  4c :(( 4c  #*:«(:((  4  ^M'^tc^^^c'tc  :4c  4t:ti:t[«:tc:^4e  ****************************  ***4c) 
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|-j{_Q   ^  «.««_«.•_  _.  .  .  ...  ^s ._....— __  ^.^^__..»^_  _____  ___  ____  ______  __  _:^\ 

(*    OSCNCF     (OPTIMIZE    SCUEEZ3    NOP)     LOCATES    ALL    'NOP*     KEY  *) 

(*    CODES,     RESETS    POINTER    REFERENCES    TO    THEM    IF    THEY    EXIST,*' 
(*    AND    THIN    PINCHES    THEM    OUT    OF    THE    CODE    DATA    STRUCTURE.       * 
|# * 

PROCEDURE    OSC^OP    (VAR    START     :     CODEPTR); 

VAR      CUR         :    CODEPTR; 
I  :    0..3; 

INDEX    :    CTEXTRNG; 

BEGIN 

CUR    :=    START;  (*    RESET    JMPPS    PAST    NOFS    *] 

WHILE    COR    O     NIL    DC  (*       ASSUMES    THAT    NO    JMEP    *' 

BEGIN  (*       IS    SET    ON    POTENTIAL       *1 

IF    CURa).JM?P    <>    NIL    THEN  (*       ADDR    SPACE    NOPS.  * 

;«HILE     (CURo).  JKFPo).  KEY    =    K    NOP) 

AND     (CURa.JMPP    <>    ETIDC?)     DO 
BEGIN 

CURd.JMPPa).ADDR     :=    -  1; 
CURS.JMPt    :=    CURo).  J«PFa>,  SE3?; 
CURa).JMPP5).ADDR     :=    0 
END; 
CUR    :=   CURa).SECP 
END; 
CUR     :=    START;  (*    SQUEEZE    OUT    NOPS    *) 

WHILE    CURol.SEQP    <>    NIL    DO 
BEGIN 

INDEX    :=    CURol.KEY;  (*    FIX    THE    INDEX    TO    CTEXT    *) 

FOR    I     :=     1    TO     (CTEXT(  .INDEX.)  .  UNIT)     DO 

CUR    :=    CURS.SEQP;  {^    BYPASS    REG/ADDR    SPACES    *) 

IF     (CURS.  SEQPa). KEY    =    K    NOP)     AND     (CUR  a) .  SEQPo)  .  ADDR    =    -1) 
THEN   CURa).SECE    :=    C  UaS.  SEQPo) .  SEQP  (*    REMOVE    NOP    *) 

ELSE 

CUR    :=    CURS.SEQP  (*    NEXT    NODE      *) 

END 
END;  (*    CSQNOP    *) 
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/:4c_P  2— —  —  —  —  —  —  — —  —  —  — —  —  —  ———  —  ——.—  —  —  —.  —  —  ———  —  —  ———  —  —————-.—  ————  —  —  ——— —4c\ 

(*    RESCLVE    ADDR    FILLS    THE    ADDR    FIELDS    OF    ALL    TI-59    CODE  * 

(*    NOCES    LINKED     IN    THE    CODE    DATA    STRUCTURE^    AND    THEN  * 

(*    FILLS    THE    KEY    FIELDS    OF    NODES    WHICH    HAVE    NON-NIL  * 

(*    JMEf'S    WITH    THE    AESOLUTE     ADDR    POINTED    TO    BY    THOSE  *, 

(*    JMFF'S;    JMPP'S    ARE    THEN     SET    BACK    TO    NIL.  * 

|;(c *J 

PROCEDURE    RESOLVE_ADDR     (START     :    CODEPTR)  ; 

VAR         TRAVEL    :     CODEPTR; 
I    :    INTEGER; 

(* „ *) 

*  INSERT    J«PADDR    CONVERTS     THE    ADDR    FOUND    AT    THE    NODE  * 

*  REFERENCED    BY    JMPF    PTR    INTO    A    TI-59    MACHINE    CODE    ADDR      * 

*  (2    INTEGERS    IN    RANGE    0. . 99) ,    AND    INSERTS    IT    INTO    THE         * 

*  THE  KEY  FIELDS  (OCCUPIED  BY  -2*3)  OF  THE  NODES  FROM  * 
i*  WHICH  THE  JMPF  ORIGINATES.  * 
^JjC * 

PROCEDURE    INSERT_JMPADDR     (J ADDR    :    INTEGER); 
VAR         HIPART,    LOPART    :    INTEGER; 

EEGIN 

HIPART    :=    JADDR    DIV    100;  (*    SPLIT    ADDR    INTO  * 

LOPART    :=    JADDR    -     HIPART    *    100;  (*    HI/LO    PARTS;  * 

TRAVELal.KEY    :=    HIPART;  (*    OVERWRITE    NO?»S  * 

TRAVELS. SEQPo).  KEY     :=    LOPART  (*    W/    ABS    ADDR'S.  * 

END;  (*    IN3ERT_JMPADCR  * 

^* *) 

BEGIN  (*    RESOLVE    ADDR    MAIN    *) 

TRAVEL    :=    START;" 
I    •  =    0  * 

WHILE  Travel  <>  enccps.seqp  do     (*  insert  absolute  addr  *) 

BEGIN 

TRAVELS.  ADDR     :=    I; 
TRAVEL    :=    TRAVELS. SEQP; 
I    :=    I  +    1 
END; 
TRAVEL    :=    START; 

WHILE    TRAVEL    <>    SNCCPS.SEQP    DO     (*    FIND/JUSTIFY    JMP    ADEE    *) 
BEGIN 

WITH    TRAVELS)    DC 

IF    JMPP    <>    NIL    THEN        (*    FIND    JMPP'S    WHICH    ARE    SET    *) 
BEGIN 

INSERT    JMPADDR     (JMPPo) .  ADDR)  ; 

JMPP    :=     NIL  (*    SET    JMPP    BACK    TO    NIL    *) 

END; 
TRAVEL    :=     TRAVEia.  SEQP 
END 
END;  (*    RESOLVE    ADDR    *) 
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/*«******♦*  ******:(c  **♦♦♦****  3jt*:4t*******  ********  *****«***4'****) 
(*  ** 

*  ODIPUT    DUMP    ROUTINES  *' 

?*  *1 

*******************♦**************************************' 

/*-8  3 * 

(*    FINDMSG    LOCATES    Tf.l    START    OF    THE    CORRECT    MESSAGE    IN  * 

(*    THE    iaSGFILE.  * 

PROCEDURE    FINDMSG    (ViiR    MSGFILE    :    TEXT;    VAR    ESCHAR    :    CHAP; 

aSG    NO    :     INTEGER) ; 
VAR       CH     :    CHAR; 

I       :    INTEGER; 

BEGIN 

RESET     (KSGFILS,    »  N  AME=  MSG  F.  PASCAL.  A ')  ; 

REACLN     (ilSGFILE,     ESCHAR); 

REPEAT 

READ     <MSGFILE,     CH); 

IF    CH    =    ESCHAR    THEN     (*    CHECK    FOR     ESCAPE    CHAR    &    MSG    NO    *) 

REACLN    (ilSGFILE,    I) 
ELSE 

REACLN  (MSGFILE) 
UNTIL  (EOF  (MSGFILE))  OR 

(  (CH  =  ESCHAR)  AND  (I  =  MSG  NO)) 
END;  ~  (*  FINDMSG  *) 

^**  ****:«(************  *******  ******:«t*  ****«:}!****  **************J 

(*-8U *) 

(*    WRITLN    WRITES    A    FULL    MESSAGE    FROM     '^N*     TO    $N»     AS    FOUND    *) 
(*    IN    THE    MSGFILE.  * 

PROCECURE    WRITLN;  (*    FWD    DSCL    WITH    I/O    COMMAND    ROUTINES    *) 

VAR       CH,    ESCHAR     :    CHAR; 
I    :    INTEGER; 

BEGIN 

FINCHSG     (MSGFILE,     ESCHAR,     MSG    NO)  ; 
REPEAT 

READ  (MSGFILE,  CH)  ; 

IF  CH=ESaiAR  THEN   (*  CHECK  FOR  EMBEDDED  ESCAPE  CHARS  *) 
READLN  (MSGFILE,  I)  (*  AND  DISCARD  IF  FOUND.  *) 

ELSE 

WRITE  (WFILE   CH)  * 
IF  ECIN  (MSGFiIe)  then  (*  NEXT  LINE  *) 

BEGIN 

REACLN  (MSGFILE)  ; 
WRITELN  (WFILE) 
END 
UNTIL  (EOF  (MSGFILE))  OR 

((CH  =  ESCHAR)  AND  (I  =  MSG  NO)) 
END;  "  (*  WRITLN  *) 

^:4cXc  ******  ************  ******  ♦*******************************) 
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I*    W3IT    WRITES     A    ONE-LINE   MESSAGE   OR    THE    FIRST    LINE    OF    A      *) 

(*    MESSAGE    FROM    THE     MSGFILE  .  *) 

^* *j 

EROCEEOEZ    W3IT     ( VAR    WFILE,     MSGFILE    :     TEXT: 

MSG    NO    :     INTEGER)  ; 
VAR       CH,     ESCHAR     :    CHi^H; 
I    :    INTEGER; 

BEGIN 

FINDMSG  (MSGFILE,  ESCHAR,  MSG  NO); 
REPEAT 

READ  (MSGFILE,  CH)  ; 
WRITE  (WFILE,  CH) 
ONTIL  ECLN  (MSGFILE) 
END;  (*  WRIT  *) 

*  REPORT  COMPUTES  AND  WRITES  THE  REGISTER/LABEL  SUMMARY.  *i 
(* *) 

PROCEDURE  REPORT  (VAR  WFILE  :  TEXT)  ; 

VAR    LTCTAI  :  LBLRNG: 
RTCTAL  :  INTEGER; 

BEGIN 

WRITLN  (WFILE,  MSGF,  3)  ; 

WRITELN  (WFILE,  SRFCRCT:?,  •  FATAL  ERRORS.'); 

WRITELN  (WFILE,  WABNCT;7,  »  WARNING  MSGS,»); 

IF  ERRCRCT  >  0  THEN  {*    CALCULATIONS  INCOMPLETE  *) 

WRITLN  (WFILE,  MSGF,  14); 

RTCTAL  :=  NEXTREG  -  STARTREG; 

LTOTAL  :=  L3LCT  -  1 ; 

WRITELN  (WFILE); 

WRITELN   WFILE,  NEXTREG:!,  •  IS  NEXT  AVAILABLE  REGISTER'); 

WRITELN  (WFILE, 'TOTAL  REGISTERS  RESERVED  =  '  ,  RES  ERVECT:  1)  ; 

WRITELN  (WFILE, 'TOTAL  REGISTERS  USED      =  ',  RT0TAL:1); 

WRITELN  (WFILE, 'TOTAL   LABELS    USED      =  ',  LT0TAL:1): 

WRITLN  (WFILE,  MSGF,  4) 
END;  (*  REPORT  *) 
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!:^_  S^_...__  .—  _  —  —  —  __..—  —_——>.  —  .•_—._  —  _  —  __—.___  —  — —^  —  —  —  — —— —:^ 
*  CCDECUMP  WRITES  TEZ  TI-59  CODE  STORED  IN  THE  CODE  DATA  * 
*  STRUCTURE  AND  APPLIES  THE  CTEXTF  FILE  TO  EACH  STEP  TO   * 
j*  PRODUCE  THE  LITERAL  TEXT  OF  FOR  THE  KEY  STROKES.         *j 

FROCEDORE  CCDEDUMP  (VAR  «FI LE  :  TEXT;  VAR  TICODE  :  CODEFTR); 

VAR   CUR,  HCLD  :  CODEFTR; 
I  :  0..3; 

(* *) 

(*    WRCODE    WRITES    THE    NUMERICAL    FORM    OF    TI-59     ADDR     AND    KEY    * 
^* * 

PROCEDURE    WRCODE    (VAR    CUR    :     CODEPTR)  ; 

BEGIN 

WRITE     (WFILE,     •  '  :  5)  ; 

ZEROPAD     (WFILe,  CURa.ADDR,    3); 

WRITE    <WFILE,     ^  * : 3) ; 

ZERCPAD     (WFILE,  CUR2.KEY,     2)  ; 

WRITE    (WFILE,     ^  •  :  3) 
END;  (*    WRCODE    *) 

^« *) 

EEGIN  (♦    CCDEDUMP     BAIN    *) 

CUR    :=    TICODE: 

WRITLN       (WFILE,    MSGF,    5);  (*    HEADER    MSG    *) 

WRITE  (WFILE,     '$');      (*     '$'     MUST    3E    WRITTEN    HERE,  * 

I*       ELSE    WILL    INTERFERE    W/    WRITLN    *i 
WRITLN        (WFILE,    MSGF,    6);  (*     BEGIN    CODE    MSG    *' 

WHILE    CUR2.SEQP    <>    NIL    DO 
BEGIN 

WRCCDE    (CUR)  ; 

WRIIELN     (WFILE,    CTEXT  (. CURS. KEY .)• CODEC HAR)  ; 

IF    CURaD.KEY    IN     (.K    SBR,     K    LBL.)     THEN 

BEGIN  (*    MGST    !IOT    TAKH    SBR^  S    OR    LBL'S    LITERALLY    *) 

CUR    :=   CURa.SEQP; 
WRCODE     (CUR)^; 

WRITELN    (WFILE,    CTEXT  (.  CURo).  KEY. )  .  CODECHAR) 
END 

EEGIN 

HCLD     :  =   CUR; 

FCR    I     ;=     1    TO     (CTEXT  (.HOLDo). KEY.)  .UNIT)      DO 

BEGIN       (♦    UNIT    FIELD    DEFINES    TYPE    INSTRUCTION    *) 
CUR    :=    CURS.SEQP; 


WRCODE     (CUR)^; 

E     (WFxLE 

WRITELN     (WFILE)' 


ZESOPAE    (WFILE,    CURS.KEY,     2); 
END 


END; 
CUR    :=   CURa.SECF 
END 
END;  (*    CODEDUHP    *) 
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(*    LINK    INTEBFACE    CRESIES    THE    SCRATCH    FILE    WHICH    PROVIDES    *' 

I*    THE    IINKEE    WITH     ALL   THE     INFORMATION    IT    MOST    HAVE    TO  *] 

i*    SEGMENT    THE    TI-59    CODE;     ENTRIES   IN    SCRATCH    ARE    IN    THE      * 

(*    FORM    CF    SUB-FILES     (MESSAGES)     DELIMITED    BY    "$N".  * 

I* *i 

PROCEDURE    LINK_INTERFACE; 

!*    LOGTO    IS    USED    BY    LINK    INTERFACE   TO    READ    AND    WRITE  * 

(*    FILES    TO    THE    SCRATCH   TILE     (COPY).  *1 

j* *| 

PROCEDURE    LCGTO     (VAR    WFILE,     RFILE    :    TEXT;     MSGNO    :     INTEGER); 

VAR       CH     :    CHAR; 

BEGIN 

WRITE     (KFILE,     •$• -     MSGNO: 1) ;  (*    WRITE    MSG    DELIMITER    *) 

WHILE    NCT    EOF     (RFILE)     DO 
BEGIN 

WHILE    NOT    EOLN     (RFILE)     DO 

BEGIN  (■*    COPY    THE    FILE    TO    SCRATCH    *) 

READ     (RFILE,    CH)  ; 
WRITE     (WFILE,    CH) 
END: 
WRITELN    (WEILE); 
IF    NCT   EOF    (RFILE)     THEN 
REAELN     (RFILE) 
END: 
WRITELN     (WFILE,    •$',    MSGNC:1);  (*    WRITE    MSG    DELIMITER    *) 

WRITELN     (WFILE) 
END;  (*    LCGTO    *) 

(« «) 

BEGIN  (*    LINK_INTEREACE    MAIN    *) 

REWRITE     (SCRATCH,     • NAM E=S CRATCH. PASCAL. A ') ; 

WRITELN     (SCRATCH,     'SIM:  (*    NEXT    REGISTER    =    MSG    SI    *) 

WRITELN     (SCRATCH,     NEXTREG:1,     '     IS    NEXT    AVAILABLE    REG.»); 
WRITELN     (SCRATCH,     *i^^);        WRITELN     (SCRATCH); 

WRITELN     (SCRATCH,     'S2M:  (*    TI-59    CODE  =    MSG    $2    *) 

CODEDUMP     (SCRATCH,     EEGINCP)  ; 

WRITLN       (SCRATCH,     KSGF,    7);  (*    END    CODE    MSG    *) 

WRITELN     (SCRATCH,     '12');        WRITELN     (SCRATCH); 

RESET     (NAMEF,     'NA M E=NA MSF . WB ASIC. A • ) ;      (*    REG/NAME    MAP         *) 
LOGTO     (SCRATCH,    NAMEF,    3)  ;  (*  =    msG    $3    *) 

IF     NCT    FIESTREAD    TEEN  (*    DATA/READ    MAP    =    MSG    $4    *) 

BEGIN 

RESET     (READF,     •  NAM  E=R  EADF.  WBASIC  .  A  • )  ; 

LCGIC     (SCRATCH,    READF,    4) 
END 

END;  (*    LINK_INTERFACE    *) 
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(*  SYMTELEUMP  IS  A  SFECIAL  PDRFOSE  ROUriNE  USED  FOR  *j 
\*  DEEOGGING-  IT  WILL  EUMP  THE  ENTIRE  CONTENTS  OF  THE  *' 
(*  COMPILER  SYMBOL  TAELE  BUCKET  BY  BUCKET;  THIS  ROUTINE  *' 
(*  IS  TOGGLED  USING  CPTION  NUMBER  5.  *j 

^* *) 

EROCECUBE  SYKTBLDUMP  (VAR  WFILE  :  TEXT;  BUCKET  :  HASH)  ; 

VAR    I     :  INTEGER; 
LOCK  :  SLOTPTS; 

BEGIN 

WRITLN     (WFILE,    MSGF,    10);  (*    HEADER    MSG    *) 

FOR    I     :=    0   TO     HASH£ASE    DO 

IF    BUCKET(,I.)     <>    NIL    THEN  (*    SKIP    EMPTY    BUCKETS    *) 

BEGIN 

ZEECP^D     (WFILE      I,     2)* 

WRITLN     (WFILE, 'mSGF,     ^1);        (*    BUCKET    BOUNDARY    MSG    *) 
LCOK    :=    BUCKET  (.1.)   ; 

REPEAT  (*    UNTIL   LOOK    =    NIL    *) 

WRITE     (WFILE,     '     *:^^,    LOOKa).IDENT,     '     ':1); 
WITH    LOOKS    DO 
CASS    TYP    OF 

VARID    :     BEGIN 

IF    REGNO    <    0    THEN  (*    PI    =    -3  lU    *) 

WRITSLN     (WFILE,     ♦..  CONSTANT') 

ELSE 
BEGIN 

ZEROPAD    (WFILE,    REGNO,     2); 
WEITELN     (WEILE,     '  GLOBAL    VAR'): 

IF    AUXREGlO-1     THEN        (*    IF    USED    *) 
BEGIN 

WRITE  (WFILE,    •     ' :32)  ; 

ZEROPAD     (WFILE,     AUXREGI,     2)  ; 
WRITELN     (WFILE,     '  AUXREG     1«) 

END; 
IF    AUXREG20-1    THEN       (*     IF    USED    *) 
BEGIN 


WRITE  (WFILE,     '     •  :32 

Z 
W 
END 


ZEROPAD     (WFILE',    AUXHEG2)     2)   : 
WRITSLN     (WFILE,     '  AUXREG    2« ) 


END 
END; 
FNQID    :     WRITELN      (WFILE,     '..  QUICK    FN'); 

FNLID    :     BEGIN 

ZEROPAD     (WEILS,     FNLRSG,    2); 
WRITSLN     (WFILE,     •  LONG    FN') 

END; 
FNPID    :     BEGIN 

ZEROPAD     (WFILE,     FNREGNO,    2); 
WRITSLN     (WFILE,     '  PARAMETER    FN') 

END 
END;  (*    CASS    *) 

LCOK     :=    LOCKa.SLOT 
UNTIL    LOCK    =    NIL 
END; 
WRITLN     (WFILE,    MSGF,    12)  (*    END    SYMTEL    MSG    *) 

END;  (*    SYMTBLDU^!P    *) 
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\*    SEARCH  IS  A  SPECIAL  PaRPCSZ  EEBUGGING  TOOL;  * 

(*  THIS  PROCEDURE  FOLLOWS  AND  PRINTS  THE  CONTENTS  OF  ALL   * 
)*  POINTERS  IN  THE  CODE  DATA  STRUCTURE  (LINE  AND  CODEPTR)  - 
(*  THIS  RCUIINE  CAN  EE  TOGGLED  USING  OPTION  NUMBER  6.      *) 
(« *) 

PROCEDURE  SEARCH  (VAR  WFILE  :  TEXT;  LSTART  :  LINEPTR) ; 

VAR  LFSEARCH  :  LINEPTR;  CODP  :  CODEPTR; 

EEGIN 

WRITLN     <WFILE,    MSGF,    13);  (*    HEADER    MSG    *) 

LPSEARCH    :=    LSTART; 

REPEAT 

WRITE  (WFILE       'LINUM    =    *)  ; 

ZEROPAD     (WFILe',     LPSE  ARC  Ho).  LI  NO,    5);     (*    WBASIC    LINE    NO    *) 
WRITEIN     (WFILE)  ; 
COD?    :=    LPSEARCHa.CPTR; 

REPEAT  (*    TI-59    CODE    ATTACHED    TO    WBASIC    LINE    NO    *) 

WRITE         (WFILE,    •     •:2)  ; 
ZEBCPAD     (WFILE,    CODPa.ADDR,    3); 
WRITE         (WFILE,    '     ' :2) ; 
ZEBCPAD    (WEILE,    CODPS.KEY,     2)  ; 
WRITELN    (WFILE); 
CODE     :=   C0DP3. SEQP 
UNTIL    (CCDP    =    LPSEARCHa).LPTRa).CPTR)     OR     (CODP    =    NIL)  ; 
LFSEARCH    :=    LPS  E  ARCHd).  LPTR 
UNTIL    LPSEARCHa.LINO   =    MAXBASLIN  (*    :1AXBASLIN    IS    END    *) 

END;  (*    SEARCH    *) 
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f  ♦  *1 

*  INITIALIZATION    ROUTINE  *' 

*  *1 

\*  INITIAIIZE    SETS    UF    ALL    FILES,     DATA    STSUCTURSS,     SETS,  *1 

(*  AND    INITIAL     VARIAEL2    VALUES    REQUIRED    TO    BEGIN    THE  *! 

(*  READING    AND    COilPILATION    OF    THE    WBASIC    SOURCE    CODE,     AND    * 

(*  THE    OUTJUT   OF    THE    TRANSLATED    TI-59    CODE    AND    LISTINGS.       * 

^:«t ^\ 

EROCECURE    INITIALIZE; 
VAR    I    :     INTEGER; 


(  = 


-*) 


*  LOADRW    READS     THE    B'«TBLF    FILE     (RESERVED    WORD    TABLE)     AND    *] 
(*    LOADS    THE    RESERVEC    WORD    CHAR/INDEX    ARRAYS;    NOTE    THAT         *] 

*  THE    ARRAYS    ARE    STATIC    FIXED    AND    ARE    DEFINED    BY    THE  *' 

*  SYSTEM    PARAMETERS    EWCHARCT,     RWWORDCT,     RWLENGCT    IN    THE       *j 

*  CONSTANT    DECLARATION    BLOCK    AT    THE    FRONT    OF    THE    PROGRAM    ** 
J4t .^ *] 

PROCECURE    LOADRW     (VAR    RWTBLF    :    TEXT)  ; 

VAR       CHINX,    STARTCHINX    :    O..RWCHARCT    +    1; 
HINX  :    0.  .BWWORDCT    +    1 ; 

IINX,    LENG     :    0.. RWLENGCT    +    1; 
CH  :    CHAR; 


BEGIN 
LINX 
CHINX 
WHILE 

BEG 
c: 

R 
R 
E 

R 


END 

RWCHA 

RWWCB 

RWLEN 

END; 


:=    0; 
:=    1; 

NOT  EOF 
IN 

lABTCHIN 
EAE  (RWT 
EAC  (RWT 
WWCRD  (.  W 
EPEAT 

REAE  (R 

CHINX  : 
NIII  EOL 
EACIN  (R 
ENG  :=  C 
F  LENG  > 

EEGIN 
LINX 
RWLEN 

END 

R  (.RWCHA 

D  (  .  R  W  WO  R 
G  (.RWLEN 


(RWTBLF)  DO 


'*  INIT  LENGTH  INDEX  * 
•*  INIT   CKAR   INDEX  * 


X  :  = 

BLF, 
BIF, 
I  NX. 

WTBL 
=  CH 
N  (RW 
WTBL 
HINX 
LIN 

:=  L 
G  (.L 


CHINX; 
WINX)  ; 

CH,  CH) 
)     :=  CHI 
READ  CHA 
F,  RWCHA 
INX  +  1 
TEIF)  ; 
F)  ; 

-    STARTCHINX 
X    THEN 


ENG; 
INX.) 


RCT 
DCT 
GCT 


>  1. 
+  1. 
+     1. 


=     WINX 


BLANK;        (*    SET 
RWCHARCT    +    1; 
RWWORDCT    •^    1 


*  READ     WORD    INDEX     (INTEGER)     *] 

*  READ    OFF    2    BLANK    SPACES         *' 


=  I 

NX  * 

RS'OF    ONE     WORD    INTO   CHAR    ARRAY    *) 

R(.  CHINX.  )  )  ; 


(*    NEXT    WORD  *) 

*  IF    LENGTH    CHANGE,    THEN  * 

*  INDEX    ITS    LOCATION    IN  * 

*  THE    LENGTH    ARRAY.  * 


(* 


DELIMITERS  FOR  *' 

(*  ARRAYS  AND  *1 

(*     INDICES  *' 

(*  LOADRW  *) 

*) 
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(*  LOADLIE  READS  PREDEFINED  FUNCTION  LIBRARIES  IN  3IFNLF   * 
<*  AND  BIFNCF  FILES;  MAKES  APPROPRIATE  SYM  TBL  ENTRIES.    * 

|5)e . * 

PROCEDURE    LOADLIE    (7AF    LIBFILE    :     TEXT;    FNTYPE    :     IDTYP: 

SEQLEN    :     INTEGER); 
VAR       IDSICT    :    SLCTPTE; 
I    :    INTEGER; 

EEGIN 

READLN     (LIBFILE)  •     READLN     (LIBFILE)  ;        (*    SKIP    HEAD    LINES    *) 
WHILE    NCT    EOF  (LIBFILE)     DO 
BEGIN 

ACCINX    :=    0;  (*    INIT    ACCUM    INCX    *) 

REPEAT  (*    READ    NAME    OF    FN    *) 

ACCINX     :=    ACCINX    +     1; 
READ    (LIBFILE,    ACCU M  (. ACCINX .))  ; 
UNTIL    ACCUM(.  ACCINX.)     =    BLANK;  (*    TO    1ST    BLANK  *) 

FCB    I     :=     ACCINX    TO    MAXTOKLEN    DO        (*    FILL    REST    BLANK    *j 

ACCUM(.I.)      :=    BLANK  ; 
ACCINX    :=     ACCINX    -    1;      (*    SET    INDEX    BACK    TO    NAilE    LEN    *) 
IDSIOT    :=    GETSLOTi ACCOM, ACCINX)  ;     («    ENTEP    IN    SYMTEL    * 
IDSLOTa.TYP    :=    FNTYPE;  (*    SET    IDENT    TYPE      * 

FOB    I    :=     1    TO     SEQLEN     DO  (*    READ    KEY    CODES       * 

C  AS E    FNT  YPE    CF 

FNQlb     :    READ    (LIBFILE,     IDSLOTi).FNQ  ( .1 . )  )  ; 
FNLID     :    BEGIN 

IDSLOTo)  .FNLLINK    :=    NIL; 
READ     (LIBFILE,    IDSLOTo).  FNL  (.  I.  )  ) 
END 
END;  r*   CASE    *) 

READLN    (LIBFILE)  (*    SKIP    TO    NEXT    IN    *) 

END 
END;  (*    L0ADLI3    *) 

I* ,) 

*    LCADCTEXT    READS    TKE   CTEXTF    FILE    AND    LOADS    THE    DATA  *' 

\*    STRUCTURE    WHICH     WILL    PROVIDE    THE    TRANSLATIONS    OF    TI-59    *' 

(*    KEY    CCDES    DURING    THE    FINAL    CODE    DUMP.  *) 

(* *) 

PROCEDURE    LCADCTEXT; 

VAR         I  :    INTEGER; 

J,    K    :    1.  . TEXTIEN    +    1  ; 
CH  :    CHAR; 

BEGIN 

READLN  (CTEXTF);  READLN  (CTEXTF); 
WHILE  NCI  EOF  (CTEXTF)  DO 
EEGIN 

READ  (CTEXTF,  I,  CTSX  T  (.  I.  )  .  UNIT)  ; 

READ  JCTEXTF,  CK,  CH)  ;  (*  SKIP  TWO  BLANKS  *) 

J    *  —  I  * 

WHILE  NOT  EOLN  (CTEXTF)  DO 
EEGIN 

READ  (CTEXTF,  CTE  XT  (  .  I . )  -  CODECHAR  (.  J. )  )  ; 
J  :=  J  +  1 
END; 
FOR  K  :=  J  TO  TEXTLEN  DO 

CTEXT(.I.)  .  CCDECHAS  (.K.)  :=  BLANK; 
READLN  (CTEXTF)  ; 
END 
END;  (*  LCADCTEXT  *) 

(* *) 

177 


EEGIN  (*    INITIALIZE    »AIN    *) 


OPEN    AIL    FILES    AND    WRITE    OUTPOT    FILE    HEADERS 


TERMODI     <CUTFILE 


RESET 

RESET 

RESET 

RESET 

RESET 

RESET  i 

RESET  j 

REWRITE 

REWRITE 

WRITLN 

WRITLN 

WRITLN 


EASIC 
(MSGF,  ■ 
(RWTBLF, 
(LAEELF, 
(CTEXTF, 
EIFNQF, 
EIFNLF 


E)  : 

•  NAME=] 


BASICF. WBASI^ 

NAME=MSGF .PASCAL. A 

NAaE=RWTBL7. PASCAL. 

NAME=LABSLF. PASCAL. 

NAME=CTEXTF. PASCAL. 

NAME=BIFNQF. PASCAL. 

NAME=BIFNLF. PASCAL. 

• NAME=LISTF. WEASIC. 

»  NAME=NAMEF. WBASIC. 
LISTF,    MSGF.    2)  :  (* 

OUTFILE,     MSGF.     i)  ;  (* 

(NAMEF,    MSGF,    8)  ;  (* 


C.  A') 


(LIST?  , 
{NAM2F, 


\> 

A* 

A' 
A* 
A* 
A* 

A' 

HEADER 


MSG    TO    LISTF 


TERMINAL    INVOKE    MSG    * 
HEADER    MSG    TO    NAMEF    * 


(*■ 


* 

*j 
*1 


INITIALIZE  OPTION  TOGGLES 


LINK59 

PC100 

OPTPAR 

OPTNOP 

CODUMP 

SYDUMP 

DSDUMP 

TOKCUT 

TOKIIS 


FALSE; 

TRUE; 

TRUE; 

TRUE; 

TRUE; 

FA  L  S  E ; 

FALSE; 

FALSE; 

FALSE; 


OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 


*  INITIALIZE  RESERVED  WORD  ARRAY  INDEXES.  *) 
[* *) 

LOADRW  (PfcTBLF); 

*  INITIALIZE  CHARACTER  SETS.  * 
f* « 


LETTERS 

DIGITS 

ALEANUM 

SIGNS 

D0UELE1 

D0UELE2 

SPECIALS 


.' A«  ..'I' 

.  •  0  *  .  . '  9  ' 

LETTEBS  +  DIGITS; 
•>'.)  + 
'<•  .)  + 
•>•  .   + 


•R* 
I  -  t 


!:: 


S' 


'Z 


■•:i; 


SUBERRCR  := 

CRITICAL  := 

TRAILTCKS  := 

BINCPTCKS  := 

REICPTCKS  := 

NUMERICKEY:= 

SIGNTCKS   := 
BEGIN  EXPRTOK 


_  t 

>• 
=  I 

_  I 


.•  =•  .)     + 

,'<•  .)     + 
^  I  I  I  f  ^  \     ^ 

iENDLIN.) 
.CMTCKEXC.) 
.PLUSTOK.) 
.DIVICK    . 
.EQUALTOK.) 
.LTEQTOK.)        + 
.K    DECPT.)     ♦     ( 
.K-ZERCk    9.) 
.PIUSTCK.)"+     ( 
:=     SIGNTOKS    ♦ 


) 


( 


>     (.ENDFIL 

ENDLI^TOK.') 


(. 


NUSTOK. 


SXCLAM.) 


{.COMMA. 


(r'^-'..) 


(.MI NUSTOK.)     + 
(.    EXPTOK    .     ; 

(.  NOTEQ " 

(.LTTOK 

.K    ES.  ) 


+     (.  llNDFILTOK.) 
(.MULTOK 


NOTEQTOK.) 
) 


+     (.G 

:    NEG. 


) 


GTEQTCK. ) 
GTTOK.) ; 
) 


MINUSTOK.) ; 
(.IDENTOK.) 


+     (.OPARENTOK.) 
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\*    INITIi\LIZE    HASH    TAEL2    AND    REGISTER    COUNT.  * 

FOR    I    :=    0    TO    HASHEASE    DO 
EUCKET(.I. )      :=    NIL; 

NEXIREG    :=   STARTREG; 

(*    INITIALIZE    ARRAY    HOLDING    OUTPUT    TEXT    OF    TI-59    CODE.  * 

LOAECTEXT; 

*  INITIALIZE    3UILT-IN    FUNCTION    LIBRARY.  * 

LOAELIE     (EIFNQF,     FNCID,    FNQLEN) ; 
LOADLIE     (EIFNLF,     FNIID,    FNLLEN) ; 

i*    ENTER    'FI*    =     3.14  1592653  59    IN    SY:1B0L    TABLE.  * 

ACCUK(.1.)    :=    'P';       ACCU.^(.2.)     :=    •  I«  ; 

ACCIN)f    :=    2: 

FOR    I    :=    3   TO    MAXTCKLEN    DC 

ACCUM  (.  I.)      :=    BLANK; 
IDSLOT    :=    GETSLOT     (ACCUM,     ACCINX)  ; 
IDSLOTS.TYF  :=    VABID; 

IDSIOTol. REGNO     :=    -314;  (*   SPECIAL    REGNO    FOR    'PI«     *) 

/]{{_________  __^  _  _— .  _.—  —  _._  —  . —_...—  —  — ... — — —__— _:^ 

(*    INITIALIZE    LABEL    STACK    (ARRAY    OF    INTEGER    KEY    CODES).  * 

^* * 

REAEIN     (LAEELF):  (*    SKI?    HEAD    LINE    *) 

FOR    I     :=     1    TO    L3LBASE    DO 

READ     (LABELF,    CLArEL  (.  I  .)  )  ; 
LBLCT    :=    1; 

*  INITIALIZE  RSSERVEC  REGISTER  SET.  * 

REAELN  (LAEELF);  R  E  ACLN  (L  ABELF)  ;  READLN  (LABELF)  ; 
RESERVECT  :=  0; 

RESEFVE  SEG  :=(..);  (*  INITIALIZE  TO  EMPTY  SET  •*) 

WHILE  NT:t  EOF  (LABtIF)  DO 
BEGIN 

WHILE  NOT  EOLN  (LABELF)  DO 
BEGIN 

READ     (LABELF,    1): 

RESERVE    REG    :=    RESERVE    REG     +     (.1.);     (*    MAKE    SET    *) 
RESERVECT     ;=    RESERVECT"+    1  (*    CCUNT    MEMBERS    * 

END; 
READLN    (LABELF) 
END; 

*  INITIALIZE    FNP    ACTIVATION    STACK    AND    FNL    USE    LIST.  * 
* « 

FNSTACKCT  :=  0; 
FNSTACK  :=  NIL; 
FNLLIST    :=   NIL; 
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*  INITIALIZE  FIRST 


CALL  TO  SCAN 


LINEUF  (.0.)  :=  BLAKK; 
'.)  :=  ENDLIN; 


LINEUF  ( 

TOKNUM 

LNEINX 

ERRCRCI 

HAENCT 

FLAGCMT 

LINDM 

LLINUM 

C LI  HUM 


ENDIINTCK; 

0; 
FALSE; 

0: 


*  INITIALIZE 


LINKED    DATA    STRUCTURE    FOR    TI-59    CODE, 


FIRSTLF 

LPCUR 

LASILP 

ENDCP 

BEGINCF 

CPCUR 

SETLINE 

GENKEY 

GENKZY 

BEGINCF 


3ETNEWHCR 
FIRSTLP; 
FIESTLP  : 


(LINUa 


\l 


i*    SET    A    COMMON     EEF    NODE    *' 
NCHOR    ALL    MARKER    PTRS    TO    IT    *] 


FIRSTLP2.CPTR; 
ENDCP; 
E  N  D  CP  * 
(LPCUR,    LP)  ;     (*    SET 
(K    LBL)  ; 
(NIWLBL)  ; 
:=    BEGINCPS.SEQP; 


UP    FOR    MAIN    PROCEDURE    LABEL    *) 


[*    MAIN    PROCEDURE    =    LBL    A 
*    BYPASS    THE    HEADER    NODE 


5:' 


INITIALIZE  LOCP/BRANCH  STACKS 


IFSIACK 

ENDIFSTACK 

LOOPSIACK 

ENDIOCPSTACK 

FORSTACK 

NEXISTACK 


I  = 

NIL; 

J  = 

NIL; 

•  = 

NIL; 

I  = 

NIL; 

:  = 

NIL; 

:  = 

NIL; 

* 


INITIALIZE  READ/DATA  STATEMENT  INDEXES/FLAGS 


READIX  :=  1; 
DAT  A  IX  :=  1 • 
INDEXEEROR  :=  FALSE 
FIRSTREAE   :=  TRUE 


END 


(*  INITIALIZE  *) 


180 


j:(c*  ***♦♦♦*«****  ************  ««**#*  **:^**:«!**:Jc*  *********** 

I*  EAX59:        MAIN    DRIVER 

^****«:(i***  ♦«♦*****  *********  *************************** 

BEGIN  (*    EAX59    MAIN    *) 

INITIALIZE; 
REPEAT  (*    UNTIL    ICKNUM    =    ENDFILTOK    *) 


*****\ 
*****j 


SCAN  (TCKNOM): 
IE  EBFOSCT  =  0  TEEN 
BEGIN 


:*  SCAN  FIRST  WORD  0?  NEW  LIN; 

*  PARSING  IS  BICONTINUED  AFT: 

**  FIRST  FATAL  ERROR  ENCOUNTE: 


(LP( 
KNUM 


E    *' 
ER   *] 

RED  * 

cf'    ""'(=?=  r^ecur3Ivs"descent"parse  PRCC  *) 


SETLINE      (LPCUR,     LP)   ;     (*    NEW    M  BASIC    LINE    NO    &    L 
CASE   TO"'        "     "~  " 


KEYWORDS    MARKED    IN    RIGHT    CMT    COLUMN    BY 

ASTERISKS    MUST 

ALWAYS    RESULT    IN     A    PARSE     ERROR    IF    USED 

AS    A    COMMAND 

(IE.     1ST     WORD    ON     A    LINE)      REGARDLESS    OF 

IMPLEMENTATION: 

**    IMPLEMENTED    IN    THIS    SUBSET 

***    NOT    IMPEMSNTED     IN    THIS    SUBSET 

ERRORTOK 
CMTOKEXC 
2,3,4,5.6 
7,8,9,  10,  1  1 
1/,13,  lU 
15,16,  17,  18 

19 

20 
21 

22 

23 

CMTOKREM 

25 

26 

27 

28 

29 

30 

31,32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43,44,45 

46 

47 

48 

49 

50 

51 

52 

53 

54,55,56 


BEGIN    END; 

PREM; 

PERROR; 

PERROR; 

BEGIN    END; 

PERROR; 


[*  SCAN    ERROR 

[*  EXCLAM 

'*  1-CHAR    SYMBOLS 

'*  1-CHAR    SYMBOLS 

'*  SCAN    ERROR 

'*  2-CHAR    SYMBOLS 


PIF: 

PERROR 
PERROR 

PLST; 
PREM; 
EFOR; 
PEND; 
FDEF; 
PERROR 

PERROR 


PERROR 

PELSE 

PGOTO 

ELOOP 

PNEXT 

EQUIT 

PSTOP 

EDATA 

PREAD 

PERROR 


PENDIF 
PFNEND 
PGOSUB 
PINPUT 
PUNTIL 
PWHILE 
PPAUSE 
PPRINT 
.57,58 


PSUBERROR; 


PSUBERROR; 
PSUBERROR; 


PSUBERROR; 


PSUBERROR; 


** 


** 


end; 

FNSl 
GOSI 
INPl 

unt; 
wHi; 

PAU^ 
PRIl 


*] 
*' 
*j 

*' 

*j 

* 

*i 

*' 

*] 

*' 
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59  :  EELSEIF;  (*  ELSEIF  * 

60  :  tBETUHN;  (*  RETURN  * 

61  :  EOPTION;  (*  OPTION  * 
62,63,64,65,66     :  PSUBERROR;  (*  * 

67  :  PENDLOCP;  (*  ENDLOOF  * 

68  :  PRESTO  RE;  (*  RESTORE  * 
69,70,71,72        :  PSUBEEROR;  (*  * 

ICENTOK   :  PNOLET;  (*  NO  LET  * 

NUMBERTOK:  PEEROR;  (*  NUMERIC  * 

ENDLINTOK:  GENKSY  (K  NO?)  ;  (*  BLANK  LN  * 

ENDFILTOK:  GSNKEY  (K~NOP)  (*  END  FILE  * 

END    (*  CASE  *) 
END 

UNTIL    ICKNUM    =    ENDFILTOK; 

GETFNLS;  (*    INSERT    LONG    FN    BODIES    * 

ENDCPa).£ECP    :=    NEWCCDE     (-1);  (*    CLOSE    CODE    SEQUENCE    * 

LPCDRa).IPTR    :=    GETNEWHDR     (tUXBASLIN)  ;      (*    CLOSE    LINE    S  EQ    * 

FINEGOSUBLEL     (BEGINCP)  ;  (*  INSERT    LABELS    FOR    SER  * 

IF    CPTPAR    THEN  (*  OPTION    2  * 

OSQPAREN     (BEGINCP);  l*  OPTIMIZE    PARENTHESES  * 

IF    CPINCP    THEN  (*  OPTION    3  * 

CSCNCP          (BEGINCP);  (*  OPTIMIZE     (OUT)     NOP'S  *) 

RESCLVE_ADDR     (BEGINCP)  ;  (*  OVERLAY    ABSOLUTE    ADDR  *) 

REPORT     (LISTF)  :  (*  ERR0R/REG/L3L    SUMMARY  *) 

REPCET       OUTFiti)  ; 

IF    CODUMP    THEN  (*  OPTION    4  * 

CCDEEUMP    (LISTF,  EEGINCP);           (*  WRITE    TRANSLATEC    COEE  * 

IF    IINK59    THEN  (*  CREATE    SCRATCH    FILE  * 

LINK_INTERFACS;  (*       FOR    LINKER    INTERFACE  *) 

i^.  —  —__  —  —  ..—  —  _ . _—  —  —  ———-.  — •—  _«._____—__  —____  —  __  ___—  —  ___  —  _ _—  _* 
*  DEBUGGING  TOOL:  DUMPS  EACH  SLOT  OF  EACH  BUCKET  IN  THE  * 
*                                                   SYMBOL    TABLE    TO    NAME    FILE.  * 

IF    SYCUI^P    THEN                                               (*    OPTION    5  * 

SYMTELDUMP     (LISTF,    BUCKET)  ; 
(* *) 

1:4c  —  _  —  _—  ___—  ——  _  ___  __  —  ___.  —  .  —  —  ——  —  ——— .^  ———  —  —  —  ————  —  —  —  —  —  —  —  —  — —  —  * 
*    DEEUGGING   TOOL:        DUMPS    ENTIRE    CODE    DATA    STRUCTURE  * 

*  INCLUDING    LINE    AND    CODE    NODES.  * 

IF    CSDUMP    THEN  (*    OPTION    6  *) 

SEARCH     (LISTF,     FIRSTLP) 
(* *) 

END;  (*    EAX59    *) 
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APPENDIX    D 
EWTBL?    FILE--ORDSRED    RESERVED    WORDS 


1 

2 

t 

M 

+ 

a 

— 

c 

♦ 

6 

/ 

7 

( 

8 

9 

I 

10 

< 

11 

f 

12 

« 

13 

4 

14 

$ 

15 

*« 

16 

<> 

17 

>  = 

18 

<  = 

19 

I  B 

20 

TC 

21 

OR 

22 

CN 

23 

L^T 

2U 

BEM 

25 

rCR 

26 

END 

27 

CEF 

28 

NCT 

29 

DIM 

30 

AND 

31 

MAT 

32 

USE 

33 

THEN 

34 

EIS^ 

35 

GOTO 

36 

LCCE 

37 

NEXT 

38 

CUIT 

39 

STOP 

UO 

DATA 

4  1 

READ 

42 

STEP 

43 

LCCK 

44 

C?EN 

45 

■^CPT 

46 

HNDIF 

47 

rNEND 

48 

GCSUB 

49 

INPUT 

50 

UliTIL 

51 

WHILE 

52 

PAUSE 

C  -i 

EEINT 

54 

CHAIN 

55 

ADMIT 

56 

CLOSE 

57 

GUESS 

53 

SLEEP 

59 

ELSEIF 
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60 

RETURN 

61 

CETICN 

62 

LINFUT 

63 

BinCVE 

6a 

BrNAME 

65 

RESUME 

66 

UNLOCK 

67 

EKDLOO? 

68 

RESTORE 

69 

SCRATCH 

70 

TAG  SORT 

71 

ENDGUESS 

72 

RANDOMIZE 
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APPENDIX    E 
LABELF    FILE — TI-59     LABELS/RESEHVED    REGISTERS 

KEY    CODES    FCR    TI-59     LABELS: 

11  12  13  14    15  16    17  18  19  10 

20  22  23  2a    25  27    28  29  30  32 

53  34  35  36    37  38    39  42  43  44 

45  47  48  49    50  52    53  54  55  57 

58  59  60  61    65  66    67  68  69  70 

71  75  76  77    78  79    80  81  85  86 

87  88  89  90    91  93    94  95  96  97 

98  9  9 

REGISIEBS    RESERVED    HI    USER: 

00    01    02    03    04    05    06    07    08    C9    10 
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APPENDIX    F 
BIFNQF/3IFULF    FILES — BUILT-IN    FUNCTIONS 

EUILT-IN  "QUICK"    FUNCTION    NAMES    AND    TI-59    KEY    CODES 

ABS         50  68    68    6  8 

ACOS       27  39    68    6  8 

ASIN       27  38    68    63 

ATN         27  30    68    6  8 

COS         39  68    68    68 

COT         30  35    68    68 

CSC         38  35    68    68 

EXP         22  23    68    6  8 

FP  27  59    68    6  8 

IP  59  68    68    6  8 

LOG         23  68    68    6  8 

LOG  10    28  6  8    68    6  8 

SEC         39  35    68    68 

SIN         38  68    68    68 

SQR         34  68    68    68 

TAN         30  68    68    68 


BUILT-IN    "LCNG"     FUNCTION    NAMES     AND    11-59    KEY    CODE    SEQUENCES 
END         36    15    10    43    10    36    15     15    36    15    71    88    68    68    68 
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APPENDIX    G 
CIEXTF    FILH— TI-5  9    KEYCODE    TRANSLATIONS 


TI-59    KEY    CCDE    TEXT 


-2  0  UNEESOLVED    ADCR    $$!?$ 

-1  0  UNFILLED    CODE    $1$$$$ 

00  0  0 

C1  0  1 

02  0  2 

03  0  3 

04  0  4 

05  0  5 

06  0  6 

07  0  7 

08  0  8 

09  0  9 

10  0  2NC    E« 

11  0  A 

12  0  E 

13  0  C 

14  0  D 

15  0  E 

16  0  2NE    A' 

17  0  2NE    E« 

18  0  2NC    C 

19  0  2NC    C 

20  0  2NE    CLR 

21  0  2NE    $$$$     ERROB    $$S$$ 

22  0  INV 

23  0  LNX 

24  0  CS 

25  0  CLE 

26  0  2ND    $$S$     ERROB    $$$$$ 

27  0  2ND    INV 

28  0  2i;e    LCG 

29  0  2NE    CP 

30  0  2ND    TAN 

31  0  LBN     (DEBUGGING    TOOL) 

32  0  X<=>T 

33  0  X=»*2 

34  0  SCET  (X) 

35  0  1/X 

36  1  2NE    rGM 

37  0  2NE    F=>R 

38  0  2NE    SIN 

39  0  2KE    COS 

40  0  2^E    IND 

41  0  SSI    $$$$    ERROR    $$$$$ 

42  1  SIC 

43  1  RCI 

44  1  SUW 

45  0  Y**X 

46  0  INS    $$$$    ERROB    $$$$$ 

47  0  2NE    CMS 

48  1  2NE    EXC 

49  1  2NE    PRD 

50  0  jXl 

51  0  ESI    $$$$    ERROR    $$$$$ 

52  0  EE 

53  0  ( 

54  0  ) 
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55 

0 

/ 

56 

0 

DEL 

$S$$    ERBOa    $$$$$ 

57 

0 

2NE 

ENG 

58 

0 

2ND 

FIX 

59 

0 

2NC 

INT 

60 

0 

2NC 

DEG 

61 

2 

G1C 

62 

1 

2NC 

PGM     2.^D 

IND 

63 

1 

2ND 

EXC    2ND 

IND 

64 

1 

2NE 

PRD    2ND 

IND 

65 

0 

* 

66 

0 

2ND 

PAUSE 

67 

2 

2ND 

X=T 

68 

0 

2ND 

NO? 

69 

1 

2ND 

CP 

70 

0 

2ND 

RAD 

71 

2 

SE5 

72 

1 

SIC 

2ND    I  LTD 

73 

1 

RCL 

2ND    IND 

7a 

1 

SUM 

2ND    IND 

75 

0 

- 

76 

0 

2ND 

LBL 

77 

2 

2ND 

X>=T 

78 

C 

2ND 

SUMMATION 

79 

0 

X-EAB 

80 

0 

2ND 

GRAD 

81 

0 

RSI 

82 

0 

iSX$    VOID   CODE    $$$$$ 

83 

1 

GTC 

2ND    IND 

84 

1 

2ND 

CP    2ND    IND 

85 

0 

+ 

86 

1 

2ND 

STFLG 

87 

3 

2ND 

IFFLG 

88 

0 

2ND 

D.MS 

89 

0 

2ND 

PI 

90 

0 

2ND 

LIST 

91 

0 

E/S 

92 

0 

INV 

S3R 

93 

0 

• 

94 

0 

+  /- 

95 

0 

96 

0 

2ND 

'^RITE 

97 

3 

2ND 

ESZ 

98 

0 

2ND 

ADV 

99 

0 

2ND 

PET 
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APPENDIX    H 
MSGP   FILE — CROSS-COMPILER   OUTPUT    MESSAGES 

$   IS    THE    ESCAPE    CHAH     (SSG    DZLIillTER)     FOR    THIS    MESSAGE    FILE. 

II    $$$$$$$S$$$$$S$$$$3$$ J$$ I35$J$S$$$$JS5$S$S$$$$$3IIS$5$S$$ 

INVOKING    WBASIC    CROSS-COMPILER    FOR    TI-59    PC 
EAX59     VERSION    1.0 

23  $$ii$ii$ $$$$$$$$$$$$$$$ $$$$n$$ss$sn$s$$s$$$$$$i$$*$s$$s 


COMFILATICN    TERMINATES 


|a    |$||I$2?$$S$$$J$$$2$$I$$$SS35S$S$$S53S3S$$3S3$$3$S$$$S$S3 

35  5sli3l3l3 33 33 33 333333  S3 3333333 333333 3333 33 333 S 333333 33 33 3 

TI-59     COLE    TRANSLATED    FROM    wIaSIC 
__jUNSSGMENTED)i__ 

ACDR  CODE 

$5    333333333 33 33 33 $33333 33 3 333333 33 3 3 333 33 3 33 33 333333 3 333 33 3 

36  $ $$$$$$$$$$$S$$$$$$SS $$$$$$$$$$$$$ $$$$$S$XtS$$$$$$SS$f$$$ 
0 BEGIN    TI-59    CODE. 

36  33 33 33 33 3333 333 33 3333 333 33? 3 333333 3 5333 333 33333 3 333 3 33 333 

$/    333333333 33 3333333333 $S 3  33333333334>33j>333334>333333333^33>f 
-1    EjjD    TI-59    CODE. 

37  33 333333 3333 333 33 2 133333 333 1 333333 3 5333333 33333 3 333533 333 

38  ^3333333333333333333333-£333'Sj>333j>33333333333333333333S333 

_  -_--______^___^____^_^__^^^^_^__^^^^_-__„       ________ 

REG#         BASIC    NAME 

$8    33333333333  3  333  3  3  3333333  333  333  3333  33  3333  33  3333  3  3  333  3  33  333 
$9    3 333 3 333 3 33 3 3 33 33 3 333 333 333 3 33333333333 333 3333 53 333 3 33 33 3 

INPIIT_DATA    TO    READ   MAPPING 

DATA  REG  NAME 
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♦9    S$$3SS*$l$$$3$$S$3IS$S$iS3S$$l$$JSS:S$$$$$3IS$$$i3$$J*3S$i 
$10    $$$3li$i$$$$$$$$$3$$3S$  $$4i3$$3$$$$^3$$$$$3$3l33i333IS33$ 


EUCKEI 
310    $$3. 

111    313; 


CONTENTS 


3  3|i 


REG 

13  3  33<^  i^S  -. 
;33333S33: 


TYP 

;|3, 
;$3. 


;333s; 

;3333. 


:  t  t  *< 


$11    $ $11$ $3 133 $33333 $$33333 $33333 3333 3 5  333333 3333 33 3 $3333333 
312    3 $$$$$$ $33 3 333 3$$33333 3 3333333333 33333333 3333 33 33$ $33 33$ 

$12    333 $33$ 333 3 3 33 3 3 3333 33$  $$$$$$$$$$ Si $$$$$$$$$$$$$$$$$$ S$$ 

$13  $$s$$i$$$$$s$$$s^i$$$$$it$$i$$$$$$$s$z$$$$$$$$$i$$s$$ss$ 

_TI-59  CODE  PATA_STRUCTURE 

$13  $$$3133 $3333$$$ 3$ $3333$ 13333333333 3  333333 33333 3 333333 333 
$14  $$$$$$$$$$$$$$$$$$$$$$$ $$$$2$$$$$$S$$$$$$ $$$$$$$$$ $$$$$$ 

BEFORE  TEE  FIRST  FATAL  ERROR,  THESE  STATS  WERE  COMPUTED: 

$14  S$$$i$$i$$$$$$$S$S$$t$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$ i$S$$S 
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APPENDIX    I 
LINKER    SOURCE   CODE 


*      PURPOSE 


(* 
(* 
* 
{* 
I* 
I* 

I* 

\* 

I* 
[* 

\* 

* 

!* 


THIS  PROGRAM  TAKES  A 
II  SEGMENTS  THE  PROG 
INTO  THE  TI-59  CALCU 
CODE   LISTINGS    ARE    PR 


COMMENT 


COMMENT: 


PROGRAM  MAY 
LIMIT  IS  US 
ALGORITHM. 
FILEDEFS  WE 
CONSSQUENTL 
IN  THE  PROG 
FOLLOW  :    SCR 

OUT 


TEM 

MES 


S  IN 
RAM 
LATO 
OVID 

LOO 

ED  3 

RE  U 
Y  TH 
RAM. 
ATCH 
PASS 
FILE 
YOUR 
PFIL 
A  TE 
SAGE 
LINK 


PUT  A  TI- 
SO  THAT  I 
R.  INSTR 
ED  AS  OUT 
P  INFINIT 
ECAUSE  OF 


SED 

EY 

S 
.  —  li 

ED 
-.11 

_0U 

FIL 
ER» 
*** 


FO 
WER 
PEC 
SCR 
FRO 
ANY 
TPU 
"AN 
RAR 
E  — 
S    M 


R  T 
E  N 
IFI 
ATC 
M  C 
DE 

Y  b 

Y    3 

MES 
ESS 
*** 


59  PROGRAM.  * 
T  MILL  FIT  * 
UCTIONS  AND  * 
"OUT.  * 

ELY* IF    SMALL;* 
DIVIDE  * 

* 

HIS    PROGRAM  *) 

OT    DEFINED  *) 

C    FILEDEFS  *) 

H    PASCAL"  *) 

OMPILER  * 

SIRED    NAME"  * 

ILE  * 

ESIRED    NAME"  * 

CRATCH  PAD  * 
SAGEFILE    FILE* 

AGES  * 


PROGRAM    TSERIVER  (INPCT, OUTPUT) 


(:*:«t3^*««**«««**^*  *********************  ****'Jt***  *********  *♦*«*) 

(*  DECLARATIONS:  *) 

^*****«*««**:(t:jt  *****************************************  **«*j 


(5 


-* 


ONST 

FJUMECONST 

1G; 

SERCCNST      = 

15; 

SERCCKTCONST  = 

7; 

STO  =  ix2; 

LSL  =  76; 

SCLINE  =  73; 

STOIND  =  72; 

CE  =  69; 

DECI.«AL  =  93; 

FS  =  91 ; 

CE  =  2a; 

*  NUM 

*  NUM 

*  NUM 


STEPS 
STEPS 
STEPS 


FOR 
FOR 
FOR 


S'ER 
S3R 


BRK 
BRK 


IE  *) 
CCDE*i 
RTN  *) 


(*  TI59  KSYCODES  *) 


DISFLfiYHEGSTCRS 
RTNREGNUM  =  6; 
MANRTNREG  =  08; 

NCNE   =  101 

ASTER  =  102 
YES    =  103, 
MCDEFCMETS  =  100 
RTNRGTOF    =  104 
CCDENUM     =  0: 
SIOINRG     =  105 
EGMEiiRTIS   =  106 
EARINUMIS   =  107 
MCDN   =  108; 
CARD1  =  109; 
CARD2  =  110; 


(*  END   KEYCODES  *) 

00:      (*  TEMP  STORE  OF  THE  DISPLAY  * 

(*  NUMBER  OF  MANUAL  RETURN  REGISTERS  * 

(*  MANUAL  SBR  RETURN  REGISTER  * 


(*  SEE  MESSAGEFILE 


(*  MESSAGE  NUMS*] 
FOR  TRANSLATION  *' 
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(' 


SID 
SID 
EAX 
SFE 
END 
FAI 
UNS 
FSE 
PKA 
PFW 
PSE 
REG 
EAT 
RGC 
filP 


El  =  11  1 

E2  =  112 

INSTB  = 
CIFICS  = 
LEI 

LINSTE  = 
EGCOELBL 

JlETN    = 
DJ 

RINV    = 
MAE       = 
AHEAD   = 
T 


81; 
82; 
83; 
84; 
=    5; 


HAIBL   =    9§; 


(*    END    MESSAGE    NUMS 


-^i 


TYPE 


-*) 


LABELS    =   PACKED    AERAY     (.1     ..     15.)     OF    CHAR; 

TYPELABELS    =    AERAY    (.0.,99.)     OF    LABELS;        (="    TI59    KEYS    *) 

CODEFIR    =    a)CODERCD;  {*    THIS     RECORD    IS    BUILT    COEE    *) 

CCEERCD    =    RECORD 

AADDB:INTEGER; 

MEMNDM:IMTEGER; 

RADDFrlNTEGER; 

KEY: INTEGER  ; 

JMP: CCDEPTR  ; 

SEQ:CCDEPTR ; 
END;  (*    SHOULD    HAVE    MADE    A    VAEI 


-:i 


INSTB    SET   =    SET    CF    0 


99 


(*  RANGE   INSTRUCTION  SET* 


NODE  = 
TELFTR 
NODES  = 


(TABLE,  SB5PTR,  SB  RBREAK,FWD    JUMP  ,  ME  MODULE  ,  CODE) 
=   a)NODES  ; 


RECORD 

CASE    TAG 
TABLE: 


:    NODE    OF 

(NEST:INTEGER; 
START    ADDR:INTEGER; 
STOP    IDDR:INTEGER; 
LENGTH: INTEGER; 
INCLUDED:BOOLEAN; 
COALESCED: BOOLEAN; 
SBRLIST:  TBLPTE; 
NUM    F: INTEGER; 
F    JTJMPLIST:  TBLPTR; 
T7fELELIST:T3LPTR)  ; 


SBRPTR: (SBR:T3LPTR; 

FROM: INTEGER; 
NEXT    SBR:TBLPTR) 


(*  NEXT  TABLE  *) 


(*  NEXT  PTR  *) 


MEMOCULE: (MEMNUM:INTEGSR; 
OFFSET:INTEGER; 
HIGHOFFSET: INTEGER; 
LOWOFFSST:INTEGER; 
RETURNCODE    NEEDED :BOOLEAN : 
SEGTBLS: IBIPTR;  (*    TABLE 

CODELIST: TBLPTR; 
NEXT:TBL?TR) ; 
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CODE: (A DDR  ESS: INTEGER; 
ABS     ADDR:INTEGER; 
KEYCODE:INTEGER: 
SEQOENTIAL:TBLPTR)  ; 

SBREBEAK: ( SBRZ: TBLPTR) ; 

FWD  JUMP: (JUMP  ADDRFR:INTEGSR; 
JUMP""ADDRTO:  INTEGER; 
JUMP~ADDRT01 :INTEGER; (^HUNDREDS*' 
JUMF~ADDRT02: INTEGER; (*TEN/UNIT** 
MEM   IDDR:  INTEGER;  (*MEMNUM*] 

JUMP    INTADDRTOI  :INTEGER;  (*LOCAL*' 
JUMP"'INrADDRT02:  INTEGER; 
NEXI~FJUMP: TBLPTR) ; 
END; 

(*    SEGIIENT    TABLE    STRUCTURE    *) 
/* * 

VAR 

CUTFILE:TEXT:                                                                        (*    OUTPUT    FILE    *' 
TEMPFILElTEXT;                                               (*     NEST    DIAGS    TEMP    FILE    *] 
SCRATCH:TEXT;                       (*    INFORMATION    FROM    COMPILER    FILE* 
MESSAGEFILE:TSXT;                                          (*    MESSAGE   INPUT    FILE    * 
^« *| 

PARTITICN:  REAL:  (*    CALCULATOR    PARTITION    INFO    *) 

REGCCUNT:INTEGER; 

GOOD    SEGMENT:B001EAN; 

SERITIVNEST:INTEGER;  (*    S33    NEST    LEVEL    CHECK    *) 

NOMBANKS.PARI    NUM:INTEGER; 

LIMIT:INTSGERT  (*    MEMORY    SIZE    LIMIT    *) 

(* *s 

BUILT    CCDE,CURCP:CODEPTR;  (*    CODS    TBL    7ARS*) 

EUILT"CCDE    COUNT:INTEGER; 

HDRFTli^SEGTBI:  TBLPTR;                                                     (*   TABLE    VAPS    *) 
(* *( 

STEP    0,STS?     1,STEP    2, STEP    3:INSTR    SET;     (*    INS    SET    V  AH    *) 
(* = ^ = = = ^\ 

TILEL:TYPELAEELS  ;  (*    PROGRAM    LABELS      *) 
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*  PROCEDURES  AND  FUNCTIONS:  *j 

:jt  =  =SS=  =  =  =S  =  =  =  =  =  =  =  =  =  =  ====  ==  =  =  =  ======  =  =  =  =  =  ==  ==  ===  =  =  =  =  =  ==  =*1 

*~FCILOHING  ROUTINES  ARE  USED  AS  UTILITIES  SUCH  AS  PRINT  * 

*  AND  SCHATCHFILE  AND  MESSAGE  FILE  MANIPULATORS  * 
1*=  =  =  ==  =  =  ====  =  =  ==  =  ========  ==  =======  =  =  =  ===========  =  =  =  =  =  ===*] 

(* *) 

(*    CUM?    SEGT3L:    DUMPS    THE    SEGMENT    TABLE.     USED    FOR    CEEUG    *) 

(*          ANT    IS    NOT    CALLED    IN     THIS    PROGRAM.  *) 

(* *) 

PROCEDURE    DUMP    SEGTELfVAR    OUTFILS:  TEXT;     HDRPTR : TBLPTR)  ; 
VAR    F    JMFLINK7SBRLINK,SBR,CURTP,SBRTP:TBLPTR; 
BEGIN" 

SBRTP:=HDRPTR; 
WHILE    SERTP    <>    NIL    DO 
BEGIN 

WRITELN  (OUT  FILE] 


WRITELN  lOUTFILEJ  ; 

TT       I  = 


WRITELN  (OUTFILE,  *  =  ========  =  =  =  =  ==  =  =  ======  =  =  =  ==  =  ==  •)  ; 

WRITE (OUTFILE,'     SBR    CODE    NUMBER    »); 

SRITELN  (OUTFILE,SBRTPa).STOP    ADDR:2)  ; 

WRITELN  (OUT  FILE , •  =  ==  =======  =  =  =  ==========  =  =  ======  «)  ; 

CURTP:=SBRTP2.TASLELIST; 
WHILE    CURTP    <>    NIL    DO 
BEGIN 

WITH   CUETPo)    DO 
BEGIN 

WRITELN  (CUTFILE)  : 

WRITELN (OUTFILE,«NEST' -NEST: 3) ; 
WRITELN  (OUTFILE,  'START*  ,  START    ADDR:  U)  ; 
WRITELN  (OUTFILE,  'STOP*  ,STOP    AI3DR:4)  ; 
WRITELN  (OUTFIIE, 'LENGTH'  ,LETlGTH:5) 
END; 
SBRIINK:=CURTPa.SERLISr; 
F    JMPLINK:=CURTPa.F    JUMPLIST; 

WHILE     (SERLINK    <>    NIL)     OR     (F    JMPLINK    <>    NIL)     DO 
BEGIlJ  f  y   - 

IF     SERLINK    <>    NIL   THEN 
BEGIN 

SBR:=S  ERLINKa).SBR; 
CASS    SBR5).TAG   OF 
TABLE:    3BR:  =  S3R; 
SBRBREAK: 
BEGIN 

SBR:  =  SBRa).  SBRZ; 

WRITELN(OUTFILE,'***    BREAK    ***•); 
END; 
END; 

WRITE(OUTFILE.'  S3R    INVOKE    FROM', 
SBRLINKS. FR0M:5, '     TO     • , 
SBRS. START    ADDR:5,'    **^    '); 
SBRLINK:=SaRLINK3.NEXT    SBR; 
END 
ELS  E 

WRITE  (OUTFILS, •  •); 

WRITE  (OUTFILE,  '  ***    •); 

IF    F    JMPLINK    <>    NIL    THEN 
bet;  IN 

liRITE(OUTFILE,  '  JUMP    FROM    ', 

F    JMPLINKa).JUMP    ADDRFR:5,'     TC     «, 
F"JMPLINKa).  JUMP"ADDRT0:5)  ; 
F  JMPLITIK:=F    JMPLINKSTNEXT    FJUMP; 
E  N  C~  ~  ~" 

WRITeIn  (OUTFILE)  ; 
END; 
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CaEI?:=CURTPa).  TABLELIST; 
END; 
SBETP: =S3RTE2.SBRLIST; 
ZNE; 
END;  (*    DUMP    32GTBL    TEST    ROUTINE    *) 

:«c -Z ^j 


« 

'*  CUM 

*      M 

;*       R 

'ROCED 

VAR 

EEGI 

S: 

WH 


P  M 
ET!0 
CUT 


EMODULENODES:     PRINTS    OUT    THE    CONTENTS    OF    THE 
DULENODE     LIST    FORMED.       THIS    IS     A    DEBUGGING 
INE    AND    IS    NOT    INVOKED    IN    THE    PROGRAM. 


UPE 
S:T 
N 

=  HE 

HE 

EEG 

W 


DUMP    MSMOCULENODES  (HEAD    MEMODULE:  TBLPTR) 
ELPTRT 


(* 


END; 


S 
END 


AD    M 
S^> 

IN 
ITH 
BEG 
W 

W 

w 

w 

w 

END 

=S.2) 


■  -*] 


EMODULE; 
NIL    DC 

S3    DO 
IN 

RITELN  (OUTFILE)  ; 

RITE  (CUTFILE.'MEMNUM       OFFSET       HIGH       ICM»); 
RITELN  (OUTFILE,  «       SSGTBLSTART*  )  I 
RITELN  ioUTFILE.MEMNUM: 6, OFFSET :8, HIGH0FFSET:6 
,L0W0FrSET;5,SEGT3LSa).  START    ADDR:10)  ; 
RITELN  (OUTFILE)  ; 


NEXT; 


(*    DUMP^MEMODULNOCES 


*) 


(* 

*  WRITE    LEADZERO 

*  ZEEHS 


PADS    INTEGER    FIELD    WITH    LEADING 


PRCCED 

VAE    I 

BEGIN 

TN: 

BEP 

T 

F 

UNT 

FOR 

W 

WRI 

END; 

(* 


URE    WRITE    LSAEZERO(VAR    OUTFILE; TEXT ; NUM, FLD: INT 
,TN:  INTEGER; 

=  NUM; 

EAT 

N:=TN   DIV    10; 

ID:  =FLD-1; 

II     (TN=0); 

I:=1    TO    FLD 
EITE  (OUTFILE 


EGER) ; 


DO 

'0' 


EITE  (OUTFILE-'O*)  ; 
TE  (CUTFILE,  NUM:1)  ; 


(*    WRITS_L£ACZERO 
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(*    WHITELEL:     WHITES    OUT    THE    TI-59    CODED    LABELS  *! 

PSOCEDCEE    WRITELBL(VAR    0 UTFILE :TSXT;     CODESS: INT EGEB) ; 

EEGI}] 

WBITELN  (OUTFILE,TILBL  (.CODESS.  )  )  ; 

END;                                                                                                 (*    WRITSLEL    *] 
(* * 


(*    WEITiCCDES;    WRITES    THE    ADDRESS    AND    KSYCODE    TO    LINE         * 
* *) 

PECCEDORE   WRIIECODES(VAR    OUTFILE: TEXT ;    CUR tCODEFTR) ; 
EEGTN 

WRITE    LEADZERO(OUTFILE,CURa).  AADDR,  3)  ; 
WRITElODTFILE,'  •); 

WRITE    LEACZER0(0UTFILE,CUR3.  KEY,2)  ; 
WRITEIOUTFILE,'                    «)  ; 
END;                                                                                     (*    WRITECODES    *) 
(♦ *j 


^ ^^ * 

*    WRITENUM:     WRITES    KEYC    DS    AS    A    NUMBER    NOT    A    LAEEI  * 

RCCEDUBE    WRITENUM  (VAR    OU TFILE: TEXT ;    CUR :C0DEPTR)  ; 
EEGIN 

WRITE    LEADZERO  (OU TFILE , CURcD .  KE Y,  2)  ; 


END;         ~  (*    WRITENUM    * 

J4t * 


'* *] 

**    HANDLE    #STEPS:     fRINTS    OUT    DIFFERENT    CASES    OF    CODES,       * 

*  EG.    "WHETHER    ONE    OR     TWO    STEP    INSTRUCTION. 

■*          USED    FOR    CODEFTR    TYPE    OF    NODES.  *' 

'^ ** 

EE0C5DURE    HANDLE    OSTEP (VAR    OUTFILE: TEXT; 

VAR    CUR:CODEPTR)  ; 
EEGIN 

WRITE  (OOTFIIE,'  '  )  ; 

WRITECODES  (CUTFILE, CUR)  ; 
WRITE  (OUTFIIE,'  M; 

WRITSL3L(OUIFILE,CUR5).KEY)  ; 
END; 

EROCEDURE    HANDLE    ISTEP  (VAR    OUTFI LE: TEXT; 

VAR    CURiCODEPTR) ; 
BEGIN 

CUR:=CURa).SEC; 

WRITE  (OUTFIIE,*  •)  ; 

WRITSCODESlCUTFILE  ,CUR)  ; 

WRITE  (OUTFIIE,'  *)  ; 

WRITENUM(OUTFILE,CUR)  ; 

WRITELN  (OUTFILE) 
END;  (*    HANDLE    ISTEP    *) 
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fROCEDURE    HANDLE    2STEP(VAH    0UTFIL2: TEXT; 

VAR    CUR;CODE?TE) ; 
VAE    I:INTEGER; 
BEGIN 

FOR   I  :=1    TO    2   DO 
BEGIN 

CUR:  =  CUEa).SEQ; 

WRITE  (OCTFILE,  »  ')  ; 

WRITECOCESfOUT  FILE, CUR)  ; 
WHITE  (OUTFILS,  «  •)   ; 

WRITENOf?  (OUTFILE,CUR)  ; 
WRITELN  (OOTFILE)  ; 
END; 
ENE;  (*    HANDIE_2STEP    *) 

FROCEDDRE    HANDLE    3STSP(VAR    OaiFILS: TEXT; 

VAR    CUa:CODEPTR)  ; 
VAR    I:INTEGER; 
BEGIN 

ECR    I:=1    TO    3    DO 
BEGIN 

CUR:  =  CURa.SEQ  ; 

WRITE (CUTFILE,  '  •)  ; 

WRITECCCES  (OUTFILE,CaR)  ; 
WRITE  (CUTFiLE,  •  •)  ; 

WRITENUK(OUTFILE,CaR)  ; 
WRITELN  (OUTFILE)  ; 
END; 

END;                                                                                  (*    HANDLE    #STE?    *) 
(* r .*) 


:(( :^) 

'*    PRINT    CODELIST:    PRINTS    OUT    THE    TI-59    CODE    FOR  *) 

'*         CODEEIR    NODES    ONLY.  *) 

'ic *) 

'RCCEDORE    PRINT    COEELIST(VAR    OUTFIL E: TEXT; 

VAR    BOILTCODErCODSPTR)  ; 

VSR    CUR:CODEPTR; 

BEGIN 

CUR:=EUILTCODE; 

WHILE    CUR    <>    NIL    DO 

BEGIN 

HANDLE    0STEE(OUTFILE,CUR)  ; 

IE   CURol.KEY    IN     (.71,75.)     THEN 

BEGIN 

CUR;=CURa).  SSQ  ; 

HANDLE    OSTE?(CUTFILE,CUR)  ; 

END 

ELSE 

BEGIN 

IF    CUR51.KEY    IN    STEP    1    THEN 

HANDLE    1STEP  (OUTFTL£,CUR)  ; 

IF    CURa."KEY    IN    STEP    2    THEN 

HANDLE    2STEP  (OUTFTLE,CUR)  ; 

IF  CUR2.*KSY  IN  STEP  3  THEN 

HANDLE  3STSE  (OUTFTLE,CUH)  ; 

END; 

I?   CUR    <>     NIL    THEN 

CUR:=CnRa).SEQ; 

END; 

END;                                                                                       (*    PRINT    CODELIST    *) 
(* *) 
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*    FINE    MSG:        SEARCtSS    INPUT    FILE    TO    FIND    MSG    NUMBER.  ^ 

PROCEDUFE    FIND    MSG  (VAR    ME SS AGEFILS ; TEXT ;     MSG: INT EGER)  ; 
VAB    C1:CHAR;"'DIGIT:INTEGER; 
BEGIN 

RESET     (MESSAGEFILE)  ; 
C1:  =  '     »; 
DIGIT :=-1 ; 
REPEAT 

READ  (MESSAGEFILE, CI  )  ; 
IF    CT    =     •$•     THEN 

READLN  (MESSAGEFILE, DIGIT) 
ELSE 

READLN  (MESSAGEFILE)  ; 
UNTIL     ((C1='S»)     AND    ( EIGIT=MSG)  )  ; 

END;                                                                                                       (*    FIND    MSG    * 
^* * 


'He .^ * 

*    INII    SETS:     INITIALIZES     IMPORTANT     DATA    SUCH    AS    KEY-  *] 

'*  CCTE    LABEL    ARRAY,    STEP    SETS,     KEY    VARIABLES    AND  * 

'*         INIIALIZES    THE    SCRATCH    FILE  * 

'ROCEDURE    INIT   SETS  (VAR    T  SMPFILE:TSXT :    VAR    STEP    0,STE?    1, 

STEP  2, STEP  3TINSTP  "SET; 
VAR  GOOD  SEGMENT:BOCLEAN  ;  VIE  ME  SSlfG  EFILE  :  TE  XT  : 
VAH    TILBl:TYPELABELS;  VAR    SBRINVNES T  :INTEGER)  ; 

VAR    C:CHAR; 

DIGIT,  J,I,KrI:INTEGER; 

:ti *\ 

*  GET    BEGCOUNT:    GOES    TO    SCRATCH    FILE    AND    FINDS    THE         *^' 

*  MESSAGE    NUMBER    CONTAINING    THE    REGISTER    COUNT  * 
!:(..-._, * 

PROCEDURE   GET    RSGCOUNT(VAR    REGCOU NT : I NTEGER)  ; 

BEGIN 

FIND   MSG  (SCRATCH, RGCT)  ; 

REACIN  (SCRATCH, RSGCOUNT)  ; 

END;                                                                                        (*    GST    RSGCOUNT    *) 
Hf r *j 

EGIN 
SBBINVNEST:=0 ;      (*    INITIALIZES    THE    INVCKE    NEST    CHECK    *) 

RESET  (MESS  AGEFILE)  ;  (*    INITIALIZE    TILABEIS    *) 

DIGIT:=-1;  (*    LABELS    IN    MESSAGEFILE    *) 

L  *  =  1  • 
REPEAT 

READ  (MESSAGEFILE, C)   ; 
IF    C   =     '  $•     THEN 

READLN  (MESSAGEFILE, DIGIT) 
ELSE 

READLN  (MESSAGEFILE)  ; 
UNTIL     (C    =    '$«)     AND    (DIGIT    =    ALPHALBL)  ; 
L :  =0  * 

FOB    i:=0    TO    ALPHALBL    DO 
BEGIN 

IFNOT(I    IN  (.21,26,31,41,46,51,56,82.)  )     THEN 
BEGIN 

READ  (MESSAGEFILE, TILBL  (. I.)  )  : 
L:=L+1  ; 
IF    L    =    4   THEN 
BEGIN 

READLN (MESSAGEFILE)  ; 
L:=0; 
END  ; 
END 

198 


EL  ^2 
TILBL  (.  I.  )  :=    'BLANK  •  ; 

END; 

GET_BEGCOUNT (RZGCOUNT) ; 

REWEIIZ(TEMPFIIE)  :  (*    OPENNING    AND    MARKING    *) 

WSIIELN(TEMPFILE,'$9'  )  ;      (*    THE    TEMPFILE      WITH    MSG    9    *) 

BEWRITE(OUTFILE)  ;  (*    INII   OUTPDTFILE    *) 

GOCE_SEGaENT:=TBUE; 

STEP  3:=  (.  87,97.)  :      (*  STEP  TYPES  OF  INSTRUCTIONS  *) 

SIEF-2:=  (.61^67,7^.)  ; 

STEP"1:= (. 36,4  0,42,4  3 ,44,43,49,58,62,63,64,6  9,72,73,7a 

,83,84,86.)  ; 
STEP    0:=  (.0.  .99.)-  (STEP    3-eSTSP    2  +  STEP    1); 
END;      ~  -  -  -     («    INIT    SETS    *) 

'4c * 

*    ADVANCE   CODZPTR:    MOVES     ALONG    CODE    SKIPPING     1,     2,    OR    3* 

'*  STEP    INSTRUCTIONS    AND    STOPS    ON    NEXT    COMMAND    INSTR.    * 

'*         TREATS    71    AND    76    AS    SINGLE    STEPS.  * 

* * 

PROCEDURE    ADVANCE    CCDEPTR(VAR    CUR:  CODEPTR)  ; 

VAR    L:INTEGER;    "" 

BEGIN 

IF    CURS.KEY   IN    STEP    3    THEN 

EEGIN 

FOR    L:=    1     TC    4    DO 

IF    CURS.SEQ    <>    NIL    THEN 

CUR;=CIJRS.SEQ 

END 

ELSE 

IF    C0R3.KEY     IN    STEP     2    THEN 

BEGIN 

FOR    L:=     1    TO    3     DO 

IF    CURa.SEQ    <>    NIL    THEN 

CUR:=CURd).S  EQ 

END 

ELSE 

IF   CURal.KEY    IN    STEP    1    THEN 

EEGIN 

FOR    L:=    1    TO    2    DO 

IF    CURa.SEQ     <>    NIL    THEN 

CUB:=CUR3).SEQ 

END 

ELSE 

IF    CURS.SEQ    <>     NIL    THEN 

CUR:=CURa).  SEQ  ; 

END;                             (*  END  ADVANCE  CODEPTR  * 
(♦ -r * 
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'*  FSINILN    MSG:    PRINTS    A    SPECIFIC    MSG    FHOH    ONE    FILE               *' 

**  TO    ANOTHER    FILE.       THIS    aOUTINE    WILL    TAKE    THE                    *j 

;*  WHOLE   USSSAGE    AND    PRINT    IT.       IT    EXECUTES    A    SRITELN    *' 

*  AI    THE    END    OF    THE    PRINT                                                                               ** 

*:^  .  _.  ____  _  _  .  _..  —  ._.  —  —.  —  —  _.—  .———__-..  —  __._._  ^.  „__ . _4c1 

Procedure  println   msg(var  outfils,messagefile:text; 

MSGiINTEGER)  ; 
VAR    CI:  CHAR; 
EEGIN 

FINE    MSG (MESSAGEFILE,  MSG)  ; 
READ7i1ESSAGEFIIE,C1)  ; 
WHILE    C1<>'$'     CO 
BEGIN 

WRITE (0UTFIIE,C1)  ; 
WHILE    NOT     ECLN  (MESSAGEFILE)     DO 
BEGIN 

SEAD(MESSAGEFILE,C1)  ; 
WRITE  (CUT?ILE,C1)  ; 
END; 
READLN  (MESSAGEFILE)  ; 
WRITELN(OUTFILE)  ; 
READ  (MESSAGEFILE, CI)  ; 
END; 

END;                                                                                            (*    PRINTLN    MSG    *) 
^:tc r *j 


4c *j 

*  PRINT    IINEMSG:     PRINTS     A    SPECIFIC    ONE-LINE    MESSAGE  *' 

*  TC    ANOTHER    FILE.     DOES    NCT    WRITELN    TO    FILE.  *] 
'*          USED    FOR     LINE    LABELS    OF    GENERATED    DATA.  * 

'RCCEDUFE    PRINT    MSGLINE1(VAR    OUTFILE, MES SAG SFI LE : TEXT  ; 

MSGcINTEGER) ; 

VAR    C1:CHAR; 

EEGIN 

FIND    KSG  (MESSAGEFILE,  MSG)  ; 

REAE1MESSAGEFILE,C1)  ; 

WHILE    CIO'S*     EC 

EEGIN 

WHITE  (OUTFIIE,  CI)   ; 

READ  (MESSAGEFILE, CI)  ; 

END; 

END;                                    (*  PRINT  MSGLINEI*) 
(* r *j 


r* . «j 

'*     DET  LIMIT:  DETEFKINES  MEMORY  LIMITS  BASED  ON  REG  CNT.* 

'*       ct;ly  three  partitions  were  considered,   this   WA'S         *j 
;*       because  any  other  partition  splits  the  side  * 

*  of    A    MAG     card    BETWEEN    REGISTERS    AND    PROGRAM.  *] 

'*  THIS    WOULC    CHANGE    REGISTERS    DURING    REPROGR AMMING         * 

■*  AND    IS    THEREFORE    UNACCEPTABLE.  * 

'ROCEDURE    CET     LIMIT  (VAR    R  EGCGUNT,  L  IMIT  ,  NUMBANKS  , 

PART    NUM:INTEGER; 
VAR    ?ARTITI0N:REAI)  ; 
BEGIN 

IE    REGCOUNT+RTNREGNUM    IN     (.0..29.)     THEN 
EEGIN 

NUMBANKS:  =  3: 
PARTITION: =719.29  ; 
PART    NUM:=3; 
LIMIT:  =719  ; 
END 
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(* 


ELSE 

IF    BEGCOUNT  +  BTNREGNOM    IN     (.30.. 59.)     THEN 
BEGIN 

NUMBANKS  :  =  2: 
PARTITION:=A79.  59; 
PART    NUfl:=6; 
LI?«lT:=a79; 
END 
ELSE 
BEGIN 

NUMBANKS:  =  1: 
PARTITION:=239.  89; 
PART    NUM:=9; 
LIMIT:  =  239; 
END; 
END;  (*    DET    LIMIT    *| 


■* *) 

*  CLEAN:     REMOVES     SAME    F    JUMPS    AND    SAMS    S3RS    IN     A    SSG         *) 

*  TEL    NODE.       ALSO   GIVES    DELETE    COUNT    FOR    F    JUMPS  *' 

*  INCLUDED     IN    THE    CONFINES    OF    THE    S  EGMENT.  "DOU  BLE  *' 

*  DUTY    ROUTINE.     USED    BY    COMBINE     AND    BY    SET    LENGTH  *] 
'3«c r *' 

PROCEDURE    CLEANJVAR    CURTP  :TBLPTR;     VAR    DELET  E:  INTEGER)  ; 
Vi»R    F,S:TBLPTR; 

*    PRUNE    SAMEF:     REMOVES     SAME    FJUMP    ADDRESSTO    FROM    TEL    * 

PROCEDURE   PRUNE    SAMEF(VAR    F:TBL?TR); 
VAR    T,S:T3LPT"^; 
BEGIN 

WHILE    F3.NEXT    FJUMPONIL    DO 
BEGIN 

S:=Fa.NEXT_FJUMP; 
T*  =  F  • 

WHILE     (SONIL)     DO 

IF    Sa.JUMP    ADDRTO    =    Fa). JUMP    ADDRTO    THEN 

BEGIN 

T3.NEXT    FJUMP:=Sa).NEXT    FJUMP; 

DISE0SE7S ,FWD    JUMP) ;       " 

S:=Ta).NEXI    FJUMP 

END 

ELSE 

BEGIN 

T: =13. NEXT    FJUMP; 

S:=Sa).  NEXT"FJUMP; 

END; 

IF     Fa). NEXT    FJUMPONIL    THEN 

F:=Fa).  NEIT    FJUMP; 

END; 

END;                                                                                          (*    PRUNE    SAMEF    *) 
(♦ * 
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i*    PRUNE   GREATOR:    REMOVES    FJUMPS     CONTAINED    IN    SZGT3L       *) 
?« ■= -.J 

fROCEEUEE    PRUNE    GREATOR (VAR    F,3:TBLPTR; 

VAR    DELETE:INTEGER)  ; 
BEGIN 

WHILE    FONIL    DO 
BEGIN 

IF    Fa.JUMP   ADDRTO<=C0RTPa).STOP    ADDR    THEN 
BEGIN 

So). NEXT    FJUMP:=Fa.NEXT    FJUMP; 
EISPOSETF.FWD    JUMP); 
F:=Sa.NEXT    FJUMP; 
DELETE:  =  DErETE  +  1  ; 
END 
ELSE 
BEGIN 

S:=S2.NEXT    FJUMP; 
F:  =  F2.NEXT~FJUMP 
END; 
END; 
IF    CORTPa.F    JUMPLISTo).  JUMP    ADDRTO<=CURTPa) .  STOP    ADCR 

THEN 
BEGIN 

F:=CURTPal.F    JUMPLIST; 
CURTPS.F    JUHPLIST:=Fd).NEXT    FJUMP; 
DISPOSE(?,FWD    JUMP); 
DELETE:  =  CELETE+  1; 
END; 

END;                                   (*  PPUNE  GREATCR  *) 
(♦ «j 

(♦ *) 

j*    PRUNE_SAMHS:     REMOVES     SAME    SBR     INVOKES    FROM    SEGTBL      *j 

PEOCEEURE    PRUNE    SAMES(VAR    FcTBLPTR); 
VAR    S,T,SS  ,FFTTELPTR; 

/* *\ 

(*    PASS    3RK:     PASSES    OVER    THE    SBR    BREAK    NODE  *) 

j* = „ *) 

FUNCTION    PASS     EFK ( F: T ELP TR) :TBLPTR; 

BEGIN 

CASE    F3.TAG   OF 

SBRBHEAK:    PASS    BRK:  =  Fa.  SBRZ ; 

TABLE:    PASS    BR!^:=F; 

END; 

END;                                                                                             (*    PASS    3RK    *) 
(* *) 

BEGIN 

WHILE    FONIL    DO 
BEGIN 

S:  =Fa.NEXT    SBR; 
IF    SONIL  THEN 
BEGIN 

FF:=PASS    BRK(Fa).SBR)  ; 
SS:=EASS~3RK(Sa).  SBR)  ; 
END; 

WHILE    (SONIL)     DO 
IF    SS    =    FF    THEN 
BEGIN 

Ta).NEXT    S  ER  :  =Sa)  .NEXT    SBR; 
DISPOSETS  ,SEEPTR)  ; 
S:=Ta.NEXl    SBR; 
IF    SONIL    THEN 

SS:  =  PASS    BRK  (So),  SBR)  ; 
END 
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END;                                                                                     (*    PRUNE    SAMESEP.    * 
(♦ *1 


ELSE 
EEGIN 

T:=Ta).NEXT  SER; 
S:=sa.NSXT'"SBR; 
IF    SONIL    THEN 

SS:  =  PASS    BRK  (S3. SBR)  ; 
END; 
F:=Fa).NEXT   SBR; 
END; 

BEGIN 

DEIZTE:=0; 

IF    CaRTPa),F    JO  KELISTONIL    THEN 

EEGIN 

F:=CURTPS.F   JUMPLIST; 

PRUNE    SAMEFIF)  ; 

END; 

IF    CURTPa.F    JUHPLI3TONIL    THEN 

EEGIN 

S:=CURTPa).F   JUMPLIST; 

F:=Sa).  NEXT   FJUMP; 

PRUNE    GREA^OR(F, S, DELETE)  ; 

END; 

IF    CURTPo),  SBRLISTONIL    THEN 

EEGIN 

F:=CURTPa>.  SERLIST  ; 

PRUNE     SAJ1SS  (F)  ; 

END; 

END;                                                                                                                (*    CLEAN    *) 
(* * 


'*     CIAGS    NEST1S3R3BK:    DIAGNOSTIC    PRINTOUT    IF    THERE    IS    A    * 

*  A    S'BB    BREAK     »ITHIN    AN    ITERATIVE    LOOP.     NEEDS    TO    SET    * 

;*  GOOD    SEGMENT    VARIABLE    FALSE  *) 

'ROCEDURE    EIAGS    N EST1S 3RBRK ( VAR    TSMPFILE : TE XT;     SEG:T3LPTR; 

VAR    GOOD    SEGMENT: BOOLEAN) ; 
VAR    IS    ERK    BELOW  zEOOLEAN; 


!:4i—  —  _  «__«_  _  «  __  _  —  _  — —  _  __—  —  —  —  —  .___—  —  .^_..  —  _.  ..  .—  ._._._  ._  — 'f'  'i 
♦    EELOkJ    BREAK:     SEARCHES    OUT    BELOW    TO    SEE    IF    A    BREAK      *) 
(*         IS    PRESENT     SO    DIAGS    NEST1    CAN    CHECK    FOR    A    BREAK      *) 

(*          fclTHIN     A    LOOP                  "  *) 

.♦ *j 

PROCEDURE    BELOW     EEEA K (S EG : TBLPTR ;     VAR    IS     BRK    BELOW: 

"         "       BOOLEAN)  ; 
VAR    SER,  SBRL:TELPTR; 
BEGIN 

IF    NOT    IS    BRK    EELOW    THEN 
BEGIN       " 

IF    SEGo).  SERLISTONIL    THEN 
BEGIN 

SBRL  :=SEGa. SBRLIST; 
WHILE    SBRLONII    DO 
BEGIN 

SER:=SBRL3.SBR; 

IF    SBRo)  .TAG=SBRBREAK    THEN 

IS    BRK    BELOW:=TRUE 
ELSE" 

BELOW    BEEAKfSBR.IS    BRK    BELOW)  ; 
SERL:=S"ERLd).NEXT    SBR" 
END; 
2ND; 
END; 
END;  (*    BELOW^BREAK    *) 
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« ^) 

BEGIN 

IS    ERK   3EL0W:=FALSE; 
BEICW    BREAK(SEG,IS    ERK    BELOW); 
IP     (13    3RK    BELOW)  A3rD(S'EGa).NEST=1)     THEN 
BEGI1I         -  '  ^ 

GOOD    SEGMEK'I:  =  FALSE; 
WEIT"SLN(TEi1E?ILE)   ; 
WRITE  (TEMPFILE    '  ')  • 

WRITELN(TEMFFILE, •*    SBR    BREAK    WITHIN    A    LOOP'); 
W RIT E (TEMPFILE    '  ')  * 

WRITELnItEKPFiLe,  'LOOP    BOUNDS' ,SEGa). START    ADDR:  4 
,*     TO    ',SEGa).STOP    ADDR:U); 
END; 
END;  (*    DIAGS    NEST1SBRBRK    *) 

^* *■ 

■*    CIAGS    NZST1LENGTHCHK:     PRINTS    OUT    DIAGNOSTIC    IF    THERE    *\ 

'*  EXI3TS    AN    ITERATIVE    LOOP    OF    TOO    GREAT    A    LENGTH.  *' 

*  TAKES   INTO    ACCOUNT    OUT    OF    LOOP    JUMPS.       NEEDS    TO  *' 

'*          SET    GOOD    SEGMENT    FALSE    IF    ENCOUNTERED  *1 

'* •= *' 

'RCCEDUEE    CIAGS    NESTILENGTHCHK (VAR    TEMPFILE :TEXT : 

~       CUR:TBLPTR;       VAR    GOOD    SEG MENT: BOOLE  AN) ; 

BEGIN 

IF  (CURo). LENGTH  >  LIMIT)  AND  (CURS  .NEST  =  1 )  THEN 

BEGIN 

GOOD    SEGMENT:=FALSE; 

WPITELN  (TEMPFILE)   ; 

WRITE  (TEMPFILE,'  •)  ; 

WRITELN(TEMPFILE, '*    BACK   JUMP    NEST    TOO    LONG');     • 

WRITE  (TEMPFILE,'  •); 

WPITELN(TEMPFILE, '        LOOP    BOUNDS ' , 

CURa. START    ADDRrU,'     TO    ', CURS. STOP    ADDR:4); 

END; 

END;                                                                                (*    DIAGS    NEST1SERERK    *) 
(* r *j 
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f*    CIAGS    NEST6SBRINVCHK:     CHECKS    THAT    THE    SBR    NEST    LEVHL    ^) 
»         DOE'S    NOT     EXCEEE   6  *) 

PROCEDUBE    DIAGS    NS SI6S BRI NVCHK ( VAR    TEMPFILE :T EXT ; 

CUR:TELPTR;       VAR    GOOD    SEGMENT : BOOLE  AN: 

SBRTNVNEST:INTEGEE)  ; 
BEGIN 

IF    SERINVNEST    >    7    THEN 
BEGIN 

GCCD    SEGMENT:=FALSE; 
WRIT'S  ( TEMP  FILE    '  *)  ' 

WEITSLN(TEMFFILE,  •*    SBR    INVOKE    NEST    LEVEL    >    6«); 
WRITE  (TEMPFILE,'  •)  ; 

WRITE <TEMPFILE,»  CALLES     ROUTINE    STARTS     »); 

WRITELN(TEMPFILE, • AT    ABS    ADDR    », CURS. START    ADDR:3) 
END; 
END;  (*    DIAGS    NEST6 SBRINVCHK    *) 


ri4c_  — —  —  —  .  — —  —  —  _  —  —  —  — _  — —  —  —  .  .  —  _.  —  —  .—  —  —  __  —  _  —  ___  — _  — _  —  —  .  — _._  —  _:{e  " 

*    RESET    IICLUDED:     SETS    ALL    INCLUDES    TO    FALSE.     DOES    SC      *j 
'*          FCR^ALL    ROUTINES    ON     THE    SB2LIST    AND    BELOW    SBRS  * 

> *< 

'RCCHDURE    RESET    INCLUDED(VAR    SBRL: TBLPTR ) ; 
VAR    SBRIST,SBl?:  TEIPTR; 
BEGIN 

£BEI£T:=SBRL; 
WHILE    SBRLSTONIL    DO 
BEGIN 

SER:  =  SERLSI5).SBR; 
CASE    SERS.IAG    OF 
TABLE: 

SBR:  =  SER; 
SBRBREAK  : 

SBR:  =  SEBa.  SBRZ 

IF    (SBRo).  SERLISTONIL)  AND  (S  BR 5.  COAL  ESCED= 

TRUE)     THEN 

RESET    INCIUDED(SBRai.SBRLI3T)  ; 

IF     (S3RaJ.CCALESCED=TRUE)     THEN 

S3Ed).INCLUDED:  =  FALSE; 

SERLST:  =  SBEIST3).NEXT    SBR; 

END; 

END;                                  (*  RSET  INCLUDED  *) 
(* *) 


:4c  — —  —•  —  —.  — —.  —  —  —  ——  —  —  —  ————  —  —  —  —  —  ———  —  —  ——  —  ——  — — —  ——  —  —  —  —  — — — — 4c\ 

;*    INPCT:  *) 

*  PUFPCSE:     TO    READ    AN     INPUT    FILE    AND    FORM    SEQ    LINKS.     *] 
;*          THIS    FORMS    THE    INTERNAL    CODE    STRUCTURE    WHICH    WILL      ** 

*  BE    MANIPULATED  *' 
« *1 

PROCEDURE    INPUT(VAE    SCRATCH: TEXT;     VAR    BUILT    CODE :COD EFTR; 

VAR    BUILT    CODE    tOUNT :  INTEGER)  ; 
VAR       i»DERESS:INTEGER; 

TEMP,COaNT:INTEGER  ; 
CUE,TRAIL:CCCEPTR; 
EEGIN 

FIND    MSG  (SCRATCH,  CODENUM)  ; 
READ7SCRAICH,TEMP)  ; 
IF    TEMP    >    -1     THEN 
EEGIN 

NEW  (CUR)  ; 
EUILT_CODE:=CUR; 
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COUNT  :=0  ; 
CORa).  AADDR:=TEMP  ; 
CUR  a).  EADDR:=COUNT: 
SEADLN(SCRATCH,CURa).KEY)  ; 
TRAIL:  =  CU5 
INE;     (*IF*) 

REPEAT 

NEW  (CUR)  : 
C0fJNT:=C0UNT+1; 
READ(SCRATCH,CURd).  AADDR)  ; 
IF    CUR5).AADDR<>-1     THEN 
EEGIN 

CURa.  RAEDR:=COUNT; 
READLN  (SCRATCH , CURS. KEY)  ; 
TRAILS.  SEQ:=CUR; 
TRAILS.  J}^P:=NIL; 
TRAIL:  =  CUR; 
END: 
UNTIL    (CURS.AAEDR    =    -1); 
BUILI   CODE    C0UilT:=C0UNT-1  ; 
TRAILS.  JMPT=NII; 
TEAILa).SEQ:  =  NIL 

END;                                                                                                           (*    INPUT    *) 
(* *) 


r* *| 

**    SETJMP:  * 

*         PURPOSE:     TO    SET    THE    JUMP    POINTER    OF    THE    BUILTCODE      * 
»* *' 

Procedure  setji1PS(var  built  code;codeptr)  ; 

VSR       CURrCODEPTR; 

:(i_  _______  _  ___ __  _4e 

*    SETJMP    ?TH:     SEIS    THE    JUMPTR    OF    THE    CURRENT    NOEE  * 

■^ r * 

PROCEDURE    SETJMP    PTR(VAR    BUILT    CODS : CODEPTR; 

CUR:CODEFTR)  ; 

VA5    MARKER, SEARCH:CODE?TR; 

AEDRSSS:  INTEGER; 

BEGIN 

MARKER:  =  CURa).SEQ; 

IF    CURS.  KEY    IN    STEP    3    THEN 

MARKSR:=HARKERS.SlQ: 

ADDRESS: =10  0*MARKERS. KEY; 

AEDRESS:=ADDRESS+MARKERS.SEQS.KEY; 

SEARCH := BU ILI    CODE* 

WHILE    iSEARCHoi.AADDROADDRESS)     DO 

SEARCH:=SSARCHS.SEQ; 

MARKERS. SEQS.JMP:=SEARCH; 

END;                                                                                          (*    SETJMPS    PTR    *) 
i^ = *j 

EGIN 

CUR:  =  EUILT    CODE; 
WHILE    CURS7SEQ    <>    NIL    DO 
EEGIN 

IF   CURS. KEY    IN     (STEP    2  +  STEP    3)     THEN 

SETJMP    FIE(3UILT    CTJDE.CURF; 
IF   CURS.I^EY    IN     (.7T,76.)    THEN 

CUR:  =CURa.SEQS.  SEQ 
ELSE 

ADVANCE  CODEPTR  (CUR)  ; 
END; 
END;  (*  TEST  SETJMP  ♦) 
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'*  =  ==  =  =  =  ===  =  =  ==  =  =  =  =======  =  ==  =  =  ===  =  =  =  =  =  =  =  ===:=  =  =  =  =  =  =  =  ====*) 

•*    EUILL    SEGMENT    TAELE    ROUTINES:       ON    THIS    TABLE    ALL  *) 

*  OF    THE   COALESCING    IS     DONS,    AND    NOT    THE    CODE.  *) 

'*  =  ==  =  =  ====  =  ===  =  =  =  ==  =  =  =  ==  =  =  =  =  =  =  =  =  ===  =  ==  =  ==:=  =  =  =:  =  =  =  =:  =  ====*) 

^ROCEDUBE    BOILC    S3GTBL(BUILT    CODE: CODEPT R ; 

VAR~3EGTBL:TBL?TR;    LIMI T: INTEG SR ; 
BUILT    CODE    C0UNT:I13TEGSR)  ; 
VilE    HERETR:  TELPTE; 

'« *' 

*  BLE    PRIMSEGTBL:    RESULTS    IN    A    TABLE    WITH    CRITICAL         *^ 
f*  POINTS     IDENTIFIED.        THESE    ARE    BACK    JUMP    POINTS         *' 

*  TO    AND    FROM    LOCATIONS.       STOP    IS    STORED    IN    STOP         *' 

*  ADDRESS    OF    THE    FIRST    NODE.  *1 

*EOCEDURE    BLC    PR laSEGTBL (BUILT    CODE : CODSPTR ; 

VAR    HDRPTR:TELPTR)  ; 
VAR    CDRCP:CODEPTR; 
CUETP:  TBLPTR; 


* 

E* 

S* 

*) 


ERCCESS  SBRLEL:  ST 
SERLI^T  AND  PROD 
SEGMENT  TAELE  FO 
THIS  IS  CCNFUSIN 
IS  USED  TO  STORE 
THE  SEGTAELE.  K 
FUNCTION  SO  THAT 
STOP  ADDR.  THESE 
AELE~TO    SET   THE 


ORES    THE    SBRLBL    IN    THE    HEADER 

UCES    THE    FIRST    SEGMENT    OF    THE 

R    EACH    SBR. 

G  IN  THAT  THE  SAME  TYPE  OF  NCD 
THE  LABEL  ^AME  AS  IS  USED  FOR 

EY  FIELD  REDEFINITIONS  FOR  T HI 
THE  NAME  GOES  INTO  THE  FIELD 
LABEL  NODES  ARE  NEEDED  TO  BE 

SBR  INVOKE  POINTERS  LATER  ON 


•BCCECURE  PROCESS  SBRLBL  (VAR  CURCP; 

VAR   CURTP: 


VAR  TR 
EEGIN 
TEAI 
NEW( 
CURT 
CURT 
CURT 
CURT 
CURT 
CURT 
CURT 
IF  C 
BE 


EN 

ELSE 

CU 

"'tr 

END; 
(* 


AILTP: lELPTR; 


CODEFTR; 
TBLPTR) ; 


LT^ 

?:=CUFTP: 

CURTP, TABLE)  : 

pa, 

.TAG:=TABLE  ; 

Pa) 

.TABIELIST: =NIL; 

Pa), 

.COALESCED: =FALSS; 

Pa), 

.INCLUDED:=FALSE; 

Pa), 

.SBRLIST:=NIL; 

Pa), 

.START    ADDR  :=CURCPa. AAJDR; 

PS, 

.STOP  IDDR:  =-1  : 

URCPd).  KEY    =    76    THEN 

GIN 

CUSTPd) 
CURCP: 
D 


.STO 
=  CUR 


RTPo).  STCP 
RAILTP    <>" 
AIITPol.SBR 


P    A 
C?3 


ADD 
NIL 
LIS 


DDR:=CU3CPa).SEQa).KEY; 

.SSQ3. SEQ 


R:  =  -1  ; 

THEN 
T:=CURTP 


(*    PROCESS    SSRLEL    * 
"= ^ ♦ 


207 


':{(_  —  —  —  __  —  .  —  _._—  —  _______..____._..  —  .._.—_—_  —  —  —  —  —  — —._;^\ 

'*    TRCCESS    SBRCCDE:    PBOCESS    THE    TI-59    S  3R    CODE    FOE      * 

*         CRITICAL    INFO    AND    BUILDS    THE    PRIMITIVE    SSGS  * 

'* 4c 

Procedure   process  sbrcode(var  curcp:codeptr; 

VAR    SBRHDRTP:TBLPTR)  ; 
VAR    T0PTP,CTJETP:T3LPTR; 


j. 


:«> :tc 

*    IS    BCK    JME:    DETERMINES    IF    THE    JUMP    IS    BACKWARDS* 
-r r :4i 


UNCTION    IS     £ACK    JM F  (CURCP:CODEPTR)  : BOOLEAN ; 

VAR    AD DRES"S: INTEGER; 

EEGIN 

IF    (CURCP3.KEY    IN    STEP    2)      THEN 

BEGIN 

ADDRESS:=CURCPa».SEQi.  SSQo) .  JMPo) .  A  ADDR  ; 

IF    ADDRESS    >    CU  BCPa;.  A  ADDR    THEN 

IS     £ACK    JMF:=FALSE 

ELSE""  "~ 

IS     EACK    JMP:=TRUE; 

END 

ELSE 

I?     (CURCPa.  KEY    IN    STEP    3)     THEN 

BEGIN 

ADDBESS:=CURCPd).SEQa).SEQa).SEQa).  JMPa).  AADDR; 

IF    ADDRESS    >    CURCPa) .  AADDR    THEN 

IS    BACK    JMP:  =  FALSE 

ELSE" 

IS    BACK    JMP:=TRUE; 

END 

ELSE 

IS    BACK   JMP:  =FALSE; 

END;          "           "                                                       (*    IS     BACK    JM?    *) 
(* *f 


'*    APND    JMP    TBI:    DETERMINES    ALL    OUT    OF    CODE    JUMPS  ** 

*  FRaM     A""FEOM"    ADDRESS    TO    A    "TO"    ADDRESS.  * 

l:4t *i 

Procedure   apnd  jmp  tbl(curc?:cod£ptr; 

VAR    TOPTP: TBLPTR) ; 
VAR    ADDRESSFH,ADDRESST0:INTEGER; 

*  INSERT    CRITS:     PLACES    CRITICALS    IN    SEGTBL.  ** 

*  CRITTCAI    IS    ADDRESS     WHERE    A    BACK    JUMP    NEST  * 

i*         LEVEL    CHANGE    TAKES    PLACE,     IE    START    OR    STOP.       *' 
j* *) 

tROCEDURE    INSERT    CR ITS  (ADDRE S S: INTEGER; 

VAR    TOPTP: TBLPTR) ; 
VAR      CORTP^TRAILTP,  INS  SETTP:  TBLPTR; 
EEGIN 

TRAILTP:=TOPTP; 
CURTP:=TCPTPa.TABLELIST; 

WHILE    (CDRTP3.  START    ADDR    <    ADDRESS)  AND 
(CURTPa).TABLElIST    <>    NIL)  DO 

BEGIN 

TRAIITP:=CURTP; 
CURTP:=CURTPS.TABL2LIST; 
END; 
NEW  ( INS EBTTP, TABLE)  ; 
INSERTTPa.TAG:=TABIE; 
INSERTTP2. START    ADDR :=ADDRSSS ; 
INSERTTPa.STOP    lDDR:=-2; 
IF     (CURTP2.TABrELI5T=NIL)     AND 

(CURTPS.START_ADDR    <    ADDRESS)     THEN 
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BEGIN 

CURTFa.TABLELIST:=INSERTTP; 

INSEETTPS.TABLELIST:  =NIL 

END 

ELS  E 

IF     (C0ETF5).TAELELIST=NIL)     AND 

(CDRTPd.STAHT    ADDR    >    ADDRESS)        THEN 

BEGIN 

TRAILTPo).  TABLELIST:  =INSERTTP; 

INSERTTPa).TABLELIST:  =  CUETP 

END 

ELSE 

IF    CUETP?d. START    ADDR    >    ADDRESS    THEN 

BEGIN 

INSERTTPa).TABLELI3T:=CURTP; 

IRAI LTP a. TABLELIST: =INSE5TT? 

END 

ELSE 

DISFOSE(INSERTTP, TABLE)  ; 

END;                                                                              (*    INSERT    CRITS    *) 
(« = *j 

i:(c :«c\ 
*  SET  NESTS:  SEARCHES  THE  PRI^  SEGTBL  AND  MARKS  *\ 
♦         A^     1    ALL   OVERLAPPING    BACK    JUMPS    TO    DESIGNATE    *' 

(*         THAT   THEY    ARE    IN    A    NO    BREAK    AREA  * 

^^ * 

EEOCEDaRE    SET    NESTS  (ADDRESSFR , ADDRESSTO: I NTEGSR ; 

VAR    TOPTPzTBLPTR) ; 
VAR   CURTP:TELPTR; 
BEGIN 

CURTP:  =  TCFTP; 

WHILE    CURTPa).ST  ART    ADDR    <>    ADDRESSTO    DO 

CURTP: =CDRTP3 .TAaLELIST; 
WHILE    CURTPd).START    ADDR    <>    ADDRESSFR    DO 
BEGIN 

CURTFa!.NEST:=    1; 
CURTE:=CURTFa).  TABLELIST 
END; 
CURTPa).  NEST:=0; 

IF     (  (CURTPa. TABLELIST    <>    NIL)     AND     (CURTPS . NEST    = 
1))     THEN 
CURTP5.NEST:=  1 
END;                                                                                      {*    SET    NESTS    *) 
/« z * 

EEGIN 

I?   CaRCPa).KEY    IN    STEP    2    THEN 
EEGIN 

ADDRESSTO:  ^CU  RCPa).  SEQa).  SEQo).  JMPo).  A  A  DDR; 

ADDRESSFR:=CURCPa.SEQa>.  SEQd).  AADDR 

END 

ELSE 

BEGIN 

ADDRESSTO:  =CU  RCP 3.  SEQ2  .  SEQo).  SEQo).  JM PS  .  AADDR  ; 

ADDRESSFR:=CURCPa).  SEQa).SEga.SEQa).  AADDR 

END; 

INSERT   CRIIS(ADDRESSFR,TOPTP)  ; 

INSEfiT~CRITS(ADDRESSTO,TOPTP)  ; 

SET    NEoTS (ADDRESSFR, ADDRESSTO, TOPTP) 

END;    "                                                                             (*    APND    JMP    TEL    * 
■if r — 4c 

lEGIN 

NEW  (CDRTP,TAELE)  ; 

C CR IPS «  TAG : =  TABlS* 

CURTPal  START    ADDR:  =  SBRHDRTPo) .  ST  ART    ADDR; 

CURTPa*. NEST:=C: 

CCRTFa).COALSSCED:=F  ALSE; 
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CURTPS.  INCLUDED:  =FALSE; 
CURIFo).  TABL2IIST:  =  NIL; 
CURTP3. SBRLIST:=NIL ; 
SERHDRTPa).TAEL£LIST:=CURTF; 
ICPTP:=SBRHDETP; 

WHILE    ((CURCP2.KEY    <>    76)     AND     (CURCPS.SEQ    <>    NIL    )) 
DC 

IF    IS     BACK    JMP(CUFCP)     THEN 
BEGIN 

APND    JMP   TBL(CURC?,TOPTP)  ; 
ADVATICE  rODEPTR  (CURCP) 
END 
ELSE 


ADVANCE    CCDEPTR  (CUBCP)  ; 

:f  cuRCPa.snc  =  nil  then 


I 

TOFTPa.TABlELISTa.STOP    ADDR :=CURCPa. AADDR 

else 
toptpa.tablelista.stop  addr :=curcp3 , aadd3- 1 ; 
end;  "  (*  process   sbrcode  *) 

(« *j 

BEGIN 

CURCP-.  =  BUILT    CODE; 
CURTP:  =  NIL;     ~ 

PROCESS     SBRLEL(CUECP,CORTP)  ; 
HCRPTR:=CURTF; 

WHILE    (CURCPa.SEQ   <>    NIL)     DO 
BEGIN 

PROCESS     SERCODE  (CURCP,CURTP)  ; 
IF    CURCPa).KEY    =    76    THEN 

PROCESS    SBRLBL  (CUECP,CURTP)  ; 
END; 
END;                                                                                      (*    ELD    PPIMSEGTEL    *) 
(* ' * 


*  ELD    ADVSEGTBL:    FILLS     IN    THE    STOPS    AND    MERGES    SAME      *' 

♦  NESTED     LEVELS   INTO    ONE    SEGMENT.  *] 
!*          STCFS     ARE    STOP    ADDR    FIELD  * 

it  ^»  ^~  sic 

PEOCrCURE    BLD    ADVSEGTBL (VAR    HDRP TR: TBLPTR) ; 
VAR       SBRTP:TBLPTR;     STOP: INTEGER ; 

/« :4c 

(*    MERGE    ONES:     COMBINES    SAME    NESTED    ADJACENT     1     SSGS    * 
/* = * 

PEOCEEURE    MERGE   ONES^VAE    SBRTP : TBLPTR) ; 
VAR    MA  RK,ZERC70NE:  TBLPTR; 

,if * 

*    MERGE:    DOES    ACTUAL    MERGING    OF    ADJACENT    SEGMENTS* 
)* ^ * 

EBOCEDURE    HERGE(VAR    ON E, ZERO , MARK: TBLPTR)  ; 
VAR    DIS: TBLPTR; 
BEGIN 

ONES. STOP    ADDR:  =ZEROa). START    ADDR; 
DI S :  =0 N S aTTA 3LE LIS T : 
WHILE   ONEa.TABLELIST    <>    ZERO    DO 
BEGIN 

0NE3.TABLELIST:=DISa).TABLELIST; 
DISPCSE(DIS .TABLE)  ; 
DIS  :  =CNE3.T  ABLELISI 
END; 
IF    ZEROa.TABLELIST    <>    NIL    THEN 

0NE;5).TAELELIST:=ZER0d.TABLELIST 
ELSE 

ONES.TAELELIST:=NIL; 
MARK:  =  ONE; 
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DISPOSE  (EIS, TABLE)  ; 

END;                                                                                                (^    MERGE    *) 
^* *j 

EZGIN 

MARK:=SBRTFa.TABLELIST; 
WHILE    MARKa),TABLELIST    <>   NIL      DO 
BEGIN 

IF     (MARO.NEST    =    0)     AND     f  M  ARKo).  TABLELI  3TONIL) 

THEN       MARK:  =MARKa).TABL2LI3T; 
ONE:=MARK; 
WHILE     (MARKS.  NEST=1)  AND  (MARKa.  T  ABLELISTONIL) 

DO  MARK:=MARKS.TABLELIST; 

ZERO:  =  MARK; 
IF    ONE    <>    ZERO    THEN 
BEGIN 

MERGS(ONE  ,ZEB0,i1ARK)  ; 
MARK:=ONE; 
END; 
IF    MARKS. TABLZLIST    <>    NIL    THEN 
MARK:=MARKa.TABLELIST; 
END; 
END;  (*    MERGE    ONES    *) 

(* *5 

4. *\ 

•*    ADC   ZEROS:     FILLS    IN    GAPS    IN    TABLE    HITH       0    SEG  *) 

* r *) 

PRCCECURE     ADD    ZEROS fVAR    SBRTP: T3LPTR) ; 

VAR    CUR, TRAIL, INSSRT:TBLPTR;     STOP : INTEGER ; 

BEGIN 

TBAIL:=3BRTP; 

CUR:  =SERTP  a.  TABLE  LIST; 

STOP  :  =  CDRa).  STOP    ADDR; 

WHILE    CUR3.IABLSLISr    <>    NIL    DO 

BEGIN 

CUR:= CURS. TABLE  LIST; 

WHILE    TRAILS .TABLELIST    <>    CUR    DO 

TRAIL:  =  TRAILa),TABLSLI3T; 

IF    TRAILS. NESTO    CURS.  NEST    THEN 

TRAILS. STOP    ADDR:=CURS. START    ADDR-1 

ELSE  ~  ■  ~ 

BEGIN 

NEWriNSERT, TABLE)  ; 

INSERTS. NEST;=0* 

INSERTS.*  START  ADDR  :=TRAILS  .  STOP  ADDR  +  1; 

INSERTS.  STOP  "SDDR  :  =C  URS .  ST  ART  AT3DR-1; 

INSERTS.  TABL"ELIST:  =CUR; 

T H AILS. TA3LELIST:= INSERT 

END; 

END; 

IF    CURS. STOP    ADDR    <>    STOP    THEN 

BEGIN 

NEW  (INSERT, TABLE)  ; 

I NSE  RT2.NEST :=0  * 

INSERTSlSTART    ADDR : =CURS . STOP    ADDR+1; 

INSERT2.ST0?    IDDR:=ST0P; 

INSERIS.TABLILIST:=NIL; 

CURS.TABLELIST:=INSERT 

END; 

END;                                    (*  ADD  ZEROS  *) 
/* *J 

BEGIN 

SERTP:=HDRPTR; 
WHILE    SBRTP    <>   NIL    DO 
BEGIN 

MERGE   0NES(S3RTP)  ; 
ADD     ZEROS  (SBRTP)  ; 


21  1 


(*■ 


END 


SBRTP:=SEaTPa).SSRLIST 
END; 


(*    BLD_ABVSEGTEL 


-*1 


(* *) 

♦  ELL    FINSEGTBL:    PROCESS    CODE    FOR    3BR    INVOKES    AND  * 

*  FUUMPS.  WHEN  ENCOUNTERED  IT  PLACES  INTO  SEGTBL,  * 
'*  THESE     WILL    INCLUDE    ONLY    ONE     INVOKE    PER    SEGMENT         * 

*  AND  ONLY  ONE  FJUMP  TO  SAME  LOCATIONS.  REPEATS  * 
;*  WILL  BE  IGNORED.  LENGTHS  OF  SEGMENTS  WILL  ALSO  * 
(*  BE    CALCULATED.       LENGTHS     DO    NOT    INCLUDE    CODE    FOR      * 

♦  SER  INVOKES/PROMPT  CODE.  ONLY  SEQUENTIAL  CONTIN-* 
'*  CATION  CODE  IS  INCLUDED  IN  LENGTH  CALCULATION  TO-* 
'=*  GETHER     WITH    FJUMP     PROMPT    CODE.  * 

'  :<e—  _  —  —  —  —  —  —  —  — ._«  ___—«.«.«. _— _  —  ___-. _4e 

rROCEDURE    BLD    FI NSEGTBL  (BUILTCODE : CODEPTR ; 

VAR    HDRPTR:TBLPTR;       LIMIT:  INTEGER) 
VAR    CCRCP:CODSPTR; 
S£RTP:TBLPTE; 

■* 4c 

*    PROCESS    SBRSEGTBL:     PLACES    SBRS    &    FJMP    INTO    SEGTBL* 

PROCEDURE     PROCESS    SB3 SEGTBL  (VAR    CUfiCP: CODEPTR; 

VAR    aDR?TR,S3RTP: TBLPTR) ; 
VAR    CURTP,SBRINVOKE ,FJMP: T3LPTR ; 

i*    HANDLE    FWDJMP:    INSERTS    FWD    JUMPS    INTO    TABLE.  * 

PROCEDURE    HANDLE    FW DJMP (CURCP : CODEPTR ; 

VAR    HDRPTR,CURTP,FJMP:TBLPTR)  ; 
VAR    ADDRESSTO, ADD RESSFR : INTEGER ; 

INSERT:TELPTR  ; 
BEGIN 

IF    CURCPa.KEY   IN    STEP    3    THEN 
BEGIN 

ADDRESSFR:=CURCPa),SEQd).  3SQa).SEQ2).  AADDR; 
ADDRESSTO:  =  CURCPa).SEQd).  SEQ5).  SSQo).  JMPS.  A  ADDR  ; 
END 
ELSE 
BEGIN 

ADDRESSFR:  =  CURC?a).SEQa.  SEQS.  AADDR; 
ADDRESST0:=CURCPa).SEQ3.  SEQo).  JMPo).  AADDR; 
END; 
NEW  (INSERT, FWD    JUMP); 
INSERTS.  TAG:  =F17D    JUMP; 
INSERTo).  JUMP    ADD!^FR:=ADDRESSFR; 
INSERTo).  JUMP"ADDRTC:  =  ADDRSSST0; 
INSERTS.  JUMP~ADDRT0  1:=-1  ; 
INSERTS.  JUMP''ADDRT02:=-2; 
INSERTS.  MEM   1lDDR:=-1; 
INSERTS. JUMP    INTADDRT01;=-1 ; 
INSERTS.  JUMP"INTADDRT0  2:=-2; 
INSERTS. NEXT"FJUMP:=NIL; 
IF    CURTPS.F    JUMPLIST    =    NIL    THEN 
BEGIN 

CURTPS.F    JUMPLIST:=INSERT; 
FJMP:=IN^ERT; 
END 
ELSE 
BEGIN 

FJMP2.NEXT    FJUMP:=INSSRT; 
FJMP:  =  INSEHT 
END; 
END;                                                                              (*    HANDLE    FWDJMP    *) 
(* * 
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4c * 

♦  IS  ?WD  j:if:  boolean  true  if  keycode  is  fwd  j«p  * 

♦ =r * 

function    is    FfcD    JMP  (CU  BCP  :  CODEPTR)  :  BOOLEAN  ; 
VAB    ADDBES^tlNTEGER; 
BEGIN 

IF    (C'JRCPa).KEY    IN    STEP    2)      THEN 
B^GIN 

ADDRESS:=CURCPa).SEQa).SEQa).JMPd).AADDR; 
IF    ADDRESS    >    CUPCPo).  A ADDR    THEN 

IS     FWD    JMP :=TRUE 
ELSE"        " 

IS     FWD    JMP:=FALSE; 
END 
ELSE 


IF     (CURCPa.  KEY    IN    STEP    3)     THEN 
BEGIN 


ADDSESS:=CURCPa.SSQa).SEQa).SEQ3.  JMPS.  AADDR; 
IF    AEDRESS    >    CURCPo) .  AADDR    THEN 

IS    FWD    J  MP: =T RUE 
ELSE"         ~ 

IS    FWD    JMF:=FALSS; 
END 
ELSE 

IS    FWC   JM?:=FALSE; 
END;  ~         "  (*    IS    FWD    JMP    *) 


I  If *) 

(*    HANDLE    S3HINV0KE:     PLACES    S BR    CALL    INTO    TABLE         *) 
^i^ *j 

PROCEDURE    HAKDLE    SB RIN VOKE ( VA R    CURCP: CODEPTR : 

~VAE    HDRPTR,CURTP,SBRINVOKE:TBLPTR)  ; 

VAR   TOSBR.  INSERT: I3LPTR; 

KEYY:INTEGER; 

BEGIN 

TOSBR:  =  HE?PTR: 

KEYY  :  =  CURC?a).SECa).  KEY; 

WHILE    TOSERa).STOP    ADDRO     KEYY    DO 

TOSBR:  =T0S5Ra)  .S^RLIST; 

NEW  (INSERT, SBRPTR); 

INSERT d).  TAG:=SBRPTR: 

INSERTS.  FBOM:=CURCP^.  AADDR-H  ; 

INSERTS.  SER:=T0SBRa).TA3LELIST; 

INSERTS.  NEXT    SBR:  =  NIL; 

I?    CURTPa.SBlLIST    =    NIL    THEN 

BEGIN 

CURTPa.SBRL 1ST := INSERT; 

SBRINVOKE:=INSERT 

END 

ELSE 

BEGIN 

SBRINVOKEol.  NEXT    SBR:  =  INSSRT; 

S3RINV0KS:  =  INSE1JT; 

END; 

END;                                                                      (*    HANDLE    SBRINVOKE    *) 
J* * 

BEGIN 

CURTP:=SBRTFa).TA3LELIST; 
REPEAT 

OJRTPo).  SE5LIST:  =NIL: 
CURTPS.F    JUMPLIST:=NIL; 
SBRINVOKT:=NIL; 
FJMP:  =  NII; 

WHILE    CURCPa.AADDR    <    CURTPS.STOP    ADDR    DO 
BEGIN 

IF    CURCPS.KEY    =    71    THEN 
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HANDLE    SBHINVOKE(CURCP,HDRPTR,CUHTP, 

SBRINVOKE) ; 
IF    IS    FWD    JMP(CURCP)      THEN 

HANDLE    FWDJt1P(CURCP,HDRPTR,CURTP,  FJI^P)  ; 
IF     (CURCPa).  KEY=76)    3R     (CURCPo)  .KEY  =  7  1)     THEN 

CUECP:  =C0  RCPo).  SEQo).  SEQ 

ADVANCE   CODEPTR (CORC?) ; 
END; 
CURTP:=CUETPa).TABLELISr 
ONTIL     (CURTE   =    NIL)  ; 
END;  (*    PROCESS    SBRSEGTBL    *) 

(* *s 


':4c  —  —  —  —  —  —  —  — —  —  —  —__.___-.—__  —  —  ____—______—___  —  —_  —  —  —  —  — —__^ 

*  SET    LENGTH:     ENSURES    LENGTH    IS    WITHIN    MEMORY    LIMIT* 
'*  IT    NOT    WILL    DIVIEE    THE    SEGMENT    IN    HALF    AND  * 

*  RESET    ALL    SBELISTS    AND    FJUMPLISTS    THEN    CONTINUE* 

*  NOTE:       MAY    LEAD    TO    PROBLEMS    IS    LIMIT    IS  * 
;*          ARBITRARILY    SMALL.                                                                                  * 

:jt  —  —  —  —  ——  —  —  —  —  ——  —  —  ——  —  —  —  —  —  —  ———  —  ——  ——  —  —  —  —  —  ———  —  —  —  —  —  —  —  —  —— —;ie\ 

'ECCEDURE    SET    LENGTH(EUILT    CODE :CODEPTR ; 

VAR    SERTP:TBLPTR;     LIMIT : INT EGEE) ; 
VAB    CURTP:T3L?TR; 

LENGTH, DELETE, L    POSSBR:  I  NTEGER  ; 


(* *) 

(*    CALCULATE:    DETERMINES    LENGTH    OF    A    SEGMENT.     WILL*' 
<*         NOT    ADD    ADDITIONAL    STEPS    FOR    DUPLICATE    FJMP       * 
(*         ADDRTOS  * 

U * 

PROCEDURE    CALCULATE  (CURTP: TBLPTR ; 

VAR    LENGTH:  INTEGER)  ; 
VAR    S,F:TBLPTR; 

ADDITICNS:  INTEGER; 
BEGIN 

LENGTH  :=CURTPa).  STOP    ADDR-CURTPa).  START    ADDR 

4-FJUMT»C0NST  +  1  ; 
IF    CURTPa.F    JUMPLISTONIL    THEN 
BE  GI N  " 

"ADblTIONS:  =  0; 
F:=CURTPa).F    JUMPLIST; 
IF    FcE.JUMP    IDDRTO    >    CURTPS.STOP    ADDR    THEN 

ADCITI0N^:=1 ; 
S*  =F  * 

F:=Fi.NEXT    FJUMP; 
WHILE    F<>    "JIIL    DO 
BEGIN 

IF    F3.JUMP    ADDRTOCURTPS.  STOP    ADDR    THEN 
BEGIN 

ADDITI0NS:=ADDITI0NS+1; 
S:  =  CUEIPa).?    JUMPLIST; 

WHILE     ((SOF)     AND     (Sa.JUM?    ADDRTOO 

Fa. JUMP    AT3DRTC))  DO 
S:=S^.NSXT    FJUMP; 
IF    SO    F    THS!T 

ADDITI0NS:=ADDITI0NS-1; 
END; 
F:=Fa).NEXT    FJUMP; 
END*                        ~ 
LENGTH:=LENGTH+  (ADDITIONS)  *  (  FJU  MPCONST)  ; 
END; 
END;                                                                                      (*    CALCULATE    *) 
(♦ *j 
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*  L  POSSBHRK:  CALC 
'*  "POSSIBLE  BREAK 
'*  NOT  INCLUDE  MU 
^* 

PROCEDURE    LENGTH    S3 


ULATES    ANY    S3R    INVOKES    AS    A 

FOR    DIVISION    PURPOSES.     DOES 
LTIFLE    INVOKES    OF    SAME    SE3 


VAR    F,T:TBIETR 
BEGIN 

COUNT:  =  0  ; 

IF    CURTP2.S3RLISTONIL   THEN 
BEGIN 

F:=CaRTPa).S 
WHILE    FONI 
BEGIN 
IF    N< 
BEi 


RBRKS (CURTP:TBLFTR: 

VAR    L    POSSBRtlNTEGS 
CO0NT:INTEGER;    ~ 


5)  ; 


'°^iS 


BRLIST; 
L    DO 

Fa).  SBRa>.  INCLUDED)     THEN 


(*• 


EN 

F:=F 

EN  C  • 

F:=CDRTP 

WHILE    F< 

BEGIN 

Fa.s 

F:  =  F 
ENC; 
END: 
L    P0SS3R:=C0 
END" 


GIM 
COU 

Fa. 

D; 

a).NEXT    SBP; 


NT:=COUNT-H; 

SBR2. INCLUDED:=TRUE; 


a.SERLIST; 
>NIL    DO 

BR  0).  INCLUDED:  =FALSE; 
a).NEXT_SBR; 


UNT*SBRCONST; 


(*    L_SBRBRKS 


-J) 
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IDE:     DIVIDES     A    SEG    IN    HALF    AND    PSSETS    FJM 
ND    SBR    FCINTEES. 

URE    DIVIDE(BOILT    CODE: CODEPTR ; 
VAB    CHRTPrTBLPTR)  ; 
VAE    INSERT:TELPTR ; 
S,F:TBIETR; 
NEW    STCPrlNTEGER; 


♦ — 
*   S 

* — 

thOC 

VA 

BE 


EN 


ETT:     ENSURES     THAT    DIVIDE    CALCULATED    STOP    IS 
NOT    SPLITTING    A    1,2,3    PART    INSTRUCTION. 

EDURE    SETT  (BUILT    CODS: CODEPTR ; 

VAR    NET?    STOP:  INTEGER)  ; 
R    F,T:CCDEPTR; 
GIN 

P:=BUIIT   CODE: 

WHILE     (P^.AADDR    <=    NEW    STOP)     DO 
BEGIN 
T  :  =P; 
IF     (Pa). KEY    =    76)     OR     (Pa).  KEY    =    71)     THEN 

F:=Pa.SEQ5).SEQ 
ELSE 

ADVANCE  CODEPTR (P) ; 
END: 
IF  (Ta.KEY  =  76)  OR  (To). KEY  =  7  1)  THEN 

T:=Ta).SEQ5).  SEQ; 
NEW  STCF:  =  T5).  AADDR-1; 
D;  "  (*  SETT 


* 


-*i 


;nd  inssbrlis 
between  the 


T:     DIVIDES    UP    THE    SBRLIST 
CLD    AND    NSW    SEGilENTS 


VAR 

EEG 
L 
I 


EDURE    FIND__IN 

LIMIT:INTEGE 
T:TBLETR; 
IN 

IMIT:=NEW    STO 
F    CURTPo/.'SBRL 
BEGIN 

S:=CURT?S. 
IF     (So).  NEX 


BEGIN 
£:=Sa). 
T:=CUR 
WHILE  ( 


SSERLIST(VAR    CURTP ,S : TBLPTR; 
NSW    STOP:INTSGER) ; 

R;      . 


F+1  ; 

ISTO    NIL    THEN 

SBRLIST 
T 


SBRO^IL)  AND(Sa).  FROM 
<    LI.^11)     THEN 


BEGI 
S: 
T: 
END; 
IF    S5). 
T5).N 
ELSE 
S:  =  N 
END 
ELSE 
BEGIN 

IF  sa. 

CURT 
ELSE 
S:=N 


NEXT    SBR; 

TPo). "SBRLIST; 

So).  FROM<LIMIT)      AND 

So). NEXT    SBRONIL)     DO 

N 

=  Sa!.NEXT    SBR; 

=  Ta).NEXTlSBR; 

FROM    >=LIMIT    THEN 
EXT_SBR:=NIL 

IL 


FROM    >=    LIMIT    THEN 
PS.SBRLIST:=NIL 

IL 
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END; 

END 

ELSE 

S  :=N  IL ; 

END;     *             '                                                (*    FIND    INSSEELIST    *) 
(« *) 

(* :^) 

(*   FIND    INSFJMPLIST:     DIVIDES    FJOMFLIST    BETWEEN      * 
i*         OL"D    AND    NEW    SEGMENTS.  * 

;* :4c 

PROCEDURE    FIND    IN SFJMELIST  ( VAR    CURTP, F : TBLPTE  ; 

NEW    STO?:INTEGER) ; 
VAR    LIi^IT:INTEGER; 
T:TBLPTR; 

LiMIT:  =  NEW    STOP+I; 

IF    CURTEa.F    JOMPLISTO    NIL    THEN 

BEGIN 

F:=CURTPa).F    JUMPLIST: 

IF  (Fa. NEXT    7JUMPONIL)  AND  (f a) . JUMP    ADDHFR 

<    LIMIT)     THEN       " 

BEGIN 

F:  =  Fa).  NEXT    FJUMP; 

T:  =  CURTPa!.F    JUMPLIST; 

WHILE  (FS.JUT3P    ADDRFR<LIMIT)      AND 

(Fa).  NEXT~FJUMP<>NIL)     DO 

BEGIN 

F:  =Fa).NEXT    FJUMP; 

T:  =Ta).NSXT"FJUMP; 

END; 

IF    Fa).  JUMP    ADDRFR    >  =  LIMIT    THEN 

Ta).N  EXT   TJUMP:=NIL 

ELSE 

F:=NIL 

END 

ELSE 

BEGIN 

IF    Fa).  JUMP    ADDRFR    >=    LIMIT    THEN 

CURT  Pa).  F"JUMP  LIST  :  =  NIL 

ELSE 

F:=NIL 

EJJD; 

END 

ELSE 

F:=NIL; 

END;                                                             (*    FIND    INSFJUMPLIST    *) 
(* *( 

BEGIN 

NEW    STOP:=  (((CURTPS.STOP    ADDR-CURT  Pa) .  ST  ART    AEDE 

+  1)DTV    2)  )  +CURTPS. START    ADDR; 

SETT  (BUILT    CODE, NEW    STOP); 

NEWJINSERTTTABLE)  ;    ~ 

INSSRIa).  NEST:  =CURT Pa).  NEST; 

INSERlo).  START    ADDR:=NEW    SIOP+I; 

INSERTa).STOP    hDDR  :  =CURT?a) .  STOP    ADDR; 

FIND    INSSEELIST (CURTP.S, NEW    STUP); 

FIND'INSFJMPLIST  (CURTP,F,N37    STOP)  ; 

INSEKTo).  SEELIST:  =S; 

INSERTa.F    JUM?LIST:=F; 

INS  ERTo).  TlELE  LIS  T:  =CURTPd) .  TABLE  LIST; 

CUHTPa}.TAEIELIST  :  =  INSERr; 

CURTPS.STOP    ADDR:=NEW    STOP; 

END;                           ~                        ~                                        (*    DIVIDE    *) 
/« * 

BEGIN 

CUETP:=SBRTFS.TABLELIST; 
REPEAT 
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CALCULATE  (CURTP,  LENGTH)  ; 
IF    (CURTPa.NEST    =    0)THEN 
BEGIN 

LENGTH    SBRBRKS(CURTP,L    POSSBR)  ; 
IF    LENGTH+L    EOSSER    >    LIMIT    THEN 

DIVIEE(E0ILT    CODE,CDRTP) 
ELSE 
BEGIN 

CLEAN  (CURTP, DELETE)  : 

DELETE:  =  0;     j[*CALCULATE    HAS    THIS    COVERED*) 
CORTPo).  LENGTH:=LENGTH-DELETE*FJUI1EC0NST; 
IF    CURTPa).TABLELIST=NIL    THEN 
CURTPa).  LENGTH  :=CURTPa).LENGTH-FJUMPCON  ST 

+SBRCONTCONST; 
CURTP  :=CURTPai.TA3LELIST; 
END 
END 
ELSE 
BEGIN 

CLEAN  (CURTP    DELETE)  * 

DELETE:=0;     '      (*    CALCULATE    HAS    THIS    COVERED    *) 
CURTPa.LSNGTH:  =  LSNGTH-DELSTS*FJU.^PCONST; 
CURTP  :  =  CURTPa)-TABLELIST 
END; 
UNTIL     (CURTP   =    NIL) ; 
END;  (*    SET    LENGTH    *) 

EGIN 

CURCP:  =  BUILTCCDE; 

SERIP:  =  HERPTR; 

WHILE  SBRT?  <>  NIL  DO 

BEGIN 

PROCESS    SERSSGTBL  (CURCP,HDRPTR,S3RTP)  ; 

SET    LENT;TH(BUILT    CCDS,33HT?,LII1IT)  ; 

SBRTP:=SERTPa).S  Bl^LIST 

END; 

END;                                                                                  (*    3LD    FINSEGTEL    *) 
/♦ = *) 

BEGIN 

IF    BUILT    CODE    CCUNT<=LIJ1IT    THEN 
BEGIN   ~ 

NEWfSEGTBL, TABLE)   ; 

SEGT3La.TAG:=TABLt; 

SEGTBLo).  TAELELIST  :=NIL; 

SEGTBLo).  SB5LIST:  =  NIL; 

SEGTBLal.COaiESCED:=TRUE; 

SEGTBLo).  INCLUDED:  =FALSE; 

SEGTBLj).  STAFT    ADDR:  =  0; 

SEGTBL5.ST0P   IDDR  :  =  BUILT    CODSo) .  SEQo) .  KEY  ; 

NEW(HDRPTR,TIBLE)   ; 

HCRPTRo). START    ADDR:=0; 

HDRPTR3.ST0P   1DDR:  =  EUILT   CODE    COUNT; 

HDRPTRD,NESTT=0; 

HDRPTRo).  TAELELIST  :=NIL; 

HDRPTRi.  SBRIIST:=NIL; 

HCRPTRo).?    JUMPLIST:  =  NIL; 

HDRPTRiD.cnAISSCED  :=TRUE; 

HERPTRi).  INCLUDED:  =FALSE; 

HCRPTRo). LENGTH  :  =  BUILT    CODE    C0UNT■^1; 

SEGTBLci).  TAELELIST  :  =  HDHPTR;" 
END 
ELSE 
EEGIN 

BLD    PRIMSEGTEL (BUILT    CODE , HDRPTR) ; 

EID"ADVSEGIEL(HDR?TRr; 

BLD'FINSEGTELJBUILT    CODE,  HDRPTR,  LIMIT)  ; 

SEGTBL:=HDFPTR; 
END; 
END;  (*    BLD_SEGTSL    *) 
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*  COAIZSCE:     CCALESCES    THE    SSG    TABLE    MAKING    GOOD    EBK. 

*  CNLY    LOSS    OF    EFFICIENCY    IS    '/^ITH    CROSS    SEGMENT 

*  FCFSAEiD    JUMPS.       THESE    MAY    PRECLUDE    THE    COMBINING 

*  OF    A    SEGMENT     EECAUSE    OF    ADDED    CODE    FOR    THE    JUMP 


PRO 
V 


CED05E  COALESCE 

VAF  GOOD  S 

AF    CUESEG:TBLPT 


(VAR    SBR:TBLPTR;     LIMIT  :  INTEGER; 
FGMENT: BOOLEAN;     VAR    S3EIN VNEST : INTEGE 

B; 


'♦  ScBSUM:  SUMS 
!*    TRUE.    ADDS 

:4i 


AIL    SBRS    ON    A    S3RLIST.     SETS    INCLUDES 
SBRCONST    IF    SBREREAK    IS    ENCOUNTERED. 


B0CEEU5E  SBHSUM 
VAR  SERL,SER:T 
BEGIN 

SERI:=SBRLST; 
WHILE    SBRLONIL    DO 
BEGIN 

SBR:=SBR 

CASE    SBR 

T  A  EL  E : 

3EGI 

IF 


(VAR    S3RLST:TBLPTR;     VAR    SUMS3R: I NTEGE 
EIPTR; 


IS. SBR; 
2. TAG    OF 


* 

3)  ; 


N 


END 


END  : 
SBRBRE 
SUMS 
EN  D  : 

SBRL:  =  SB 
END; 


(SERS. COALESCED)     THEN 
IF    N0T(SBR2. INCLUDED)  THEN 
BEGIN 

SBR  5).  INCLUDED  :=T  RUE; 

SUM  S  BR  :  =S  UM  SB  R+S3Ra).  LENGTH 

-SSPCONTCONST; 
IF    SBRol.SBRLISTONIL    THEN 

SBRSUM(S3Ra).SERLIST,SUMSBR)  ; 
END; 

AK: 
ER:=SUMSBR+SBRCONSr; 

BLo).  NEXT_SBR; 


(*    SERSUM 


SEESUMLINK:     ADDS    ALL    SBRS     BELOW    AN    INVOKE    NODE. 
IT    DOES    NOT    CO    THE    WHOLE    SBRLIST.     THAT    IS    SUMSBR 

PROCEDURE    S BRSUMLINK(VAR     SBRPTR: TBLPTR; VAR    SUMT:INTEGS 
VAR    PTR:  TBLPTR; 
BEGIN 

FIR:=SBSPTRa).SER; 
CASE   PTRS.TAG    OF 
TABLE 


-* 

R)  ; 


I?  (PTRo).  COALESCED)  AND(?TRa) .  TABLELIST  =  NIL) 
NOT  (PTRo).  INCLUDED)  )  THEN 


:hen 


BEGIN 

PTB2.INCLUDED:=TRUS; 

SBRSUM  (?TRa.SERLIST,SUMT)^; 

SUKT:  =  SUMH-FTRa.LENGTH-SBECCNTCONST; 
END 
ELSE 

IF     (PTRo). COALESCED)  AND(NOT  (PTR3. INCLUDED) 

SUMT:  =  SOMT+PTRa(.LENGTH-S3RC0NTCONST; 
SERBREAK: 

SOMT:  =  SUMT; 
END; 
END;  (*    S3RSUMLINK 


^N 


-*i 
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'*  CHK    SZGSIZE:     VERIFIES    THAT    THE    SEGMENT    0 

«  1T3GETHES    WITH    ITS     EEQUIRED    S3R    INVOKES 

*  MEJ^.ORY     CONSTRAINTS.        IF    IT    DOES    NOT    FI 

*  SER3REAK    IS    INSERTED.       THIS     ROUTINE    AS 

*  THE   SEGMENT    LENGTH    IS    OK.    SET    LENGTH    S 

*  IF    A    SBS    IS    NOT    COALESCED    THI^    ROUTINE 

*  EECURSES    WITH    COALESCE.       DURING    ITS    CH 

*  WILL    INCLUDE    AND    RESET    INCLUDES. 


F    NE 

IS 
T    TH 
SUME 
NSUR 

.^iQT 
ECK, 


ST    0 
W  IT  H  IN 
EN    A 
S    THAT 
ES    T HI 
UALLk 
IT 


'F0CEEU5E   CHK    SEGSIZE(VAR    CURSEG 
VAR    SEG,S3R7SBF1:TBLPTR; 

CHKLENGTH,  SUMS  BR:  INTEGER; 


TBLPTR;    LIMI  T:  I  NTEGER) 


INSERT    SBRBEK:    INSERTS    THE    SBRBREAK    NODE 


INSEBT    SBRB 
EPT,CUR7FWD: 


BK  (SERNODE:TBLPTR)  ; 

TBLPTR; 


SERNOtE; 

Ra).SE5a.TAG    <>    SBRBREAK    THEN 

IN 

WD:=CaRa).  SBR 


S  W  ( I N  S 

NSERTa 


ERTrSB 
.TAG:= 
NSERTa. SBRZ: 
aRa).SER:  =  INS 


AbREAK) ; 

SBRBREAK; 

=CU5a).SBR; 

ERT; 


(*    INSSRT_SBRB5K    *] 


RSSG  ; 
EGONIL    DO 

LENGTH:=SEGa) 

SEGcD.  lABLELI 

HKLENGTH:=CH 

SEG3. SERLIST 

EGIN 

SBRL:=SSG3. 

WHILE    SBRL< 

BEGIN 

SER:=SB 

CASE    SB 

TABLE 

BEG 

I 


END; 


END 
SBRBR 
END; 
£ERL:=S 
ENC; 


.LENGTH; 
ST=NIL    THEN 
KLENGTH-SBRCONTCONST; 
ONIL    THEN 

SBRIIST; 
>NIL    DO 

RL.oD.SBR; 
Ho). TAG    OF 

IN 

F(SBRa).COALESCED=FALSE)  THEN 
COALESCS(SBR, LIMIT, 

GOOD    SEGMENT, SBRINVNEST)  ; 
F    SERd).TABLElIST<>:JIL    THEN 
BEGIN 

INSERT    SBRBRK  (S3RL)  ; 
END; 
U  M  '^  E  R  •  =0  • 

ERSUMLIMK (S3RL,SUMSBR)  ; 
HKLENGTH: =CHKLENGTH+SUMSBE ; 
F     (CHKLENGTH>LIMIT)     THEN 
BEGIN 

INSERT    S3R3RK  (SBRL)  ; 
CHKLENnTH:=CHKLENGTH-SUMSER; 
RESET    INCLUDED(SEGdi. SERLIST)  ; 
END; 

IaK: 

3RLal.NSXT_S3R; 
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I?    SEGo).  SERLISTONIL    TH£N 

LIS1 

.G,GOOD    SEGMENT) 


reset'  INCL'JDED  (S  eg.:).  35?.  LI  ST) 

DI  A G  S    N  r:  £  1 1 S  t?.  3  R  K  (  TE I'J??I  IE  ,  S  Er 


SEG:  =SEGi.  TABLE  Hi  T; 

END;"     '  (*    CHK    SEQSIIE    * 

(* 


---!« 


>:«i , *' 

♦  CCMBINE:       TAKES   THE    CHECKED   SEGTA3LE    AND    COMBINES      *! 

♦  IT    INTO    A    MAXIMIZED    CGMBINATION    0?    SEGMENTS    AND       *i 
'*  SBE.       BASICALLY,    IT    MERGES    THE    ADJACENT    SEGMENTS    *' 

♦  IF    THEY    CAN    EE    MERGED.  *] 

F'EOCEDUFE   C0M3INE(VAR    CURSEG:T3LPTR;    LIMIT:  INT  EGER)  ; 
VAS    S  U  MS  3  RF,S0MSBRC,S0MF«D,SaMC'JR,SUMTOT:  INTEGER; 
CUR,?WD:  TBLETR: 
D ELS UKS3RZ,EELSUMF J MP: INTEGER; 

*' 

MEFGES:    MERGES    ADJACENT    SEGMENTS    TO    INCLUDE    THEIR*] 
RESPECTIVE    FJUMPLISTS    AND     S3RLISTS.       IT    THEN         * 
USES    CLEAN    TO    REMOVE    ANY    DUPLICATE    JUMPS/SEES       * 
USES     CLEAN'S    DELETE    FACILITY    TO    READJUST    LENGTH* 
THE     LENGTH    FOR    THE    S3RBREAK    CODE    IS    NOT  * 

INCLUDED    IN    SEGMENT    LENGTH,    ROOM    IS    LEFT.  *] 

PROCEEURE     MSRGESrVAR    CUR , FWD: T3LPTR) ; 

VAS    SBRTAIL, JMPTAIL ;TBL?TR;     DELETE: INTEGER ; 
HEGIN 

IF    FWDa).F    JUMPLISTONIL    THEN 
IF    CUR3)7F    JUMPLISTONIL    THEN 
BEGIN       " 

JMPTAIL:=CURd).F    JUMPLIST; 

WHILE    JMPTAILa).TlEXT    FJUMPONIL    DO 

JMPTAIL:  =  JMPTAILi)7NEXT    FJUMP; 
JMPTAILa).NEXT    FJUMP:  =FWDaJ.  F    JUMPLIST; 

•c  XT  n  •"  ^ 


END 
ELSE 
CUR3 


,  F    J-DMPLIST:=FWD^.F    JUMPLIST; 
SBlillSTONIL    THEN       ~ 


IF    CURo).  SERLISTONIL    THEN 
BEGIN 

SBRTAIL:=CnRa).SERLIST; 

WHILE    SBRTAILol.NEXT    S3RONIL    DO 

SERTAIL: =SBRTAIL3. NEXT    SBR; 
SBRT  AILS.  NEXT    SBR  :=F  WDo) .  SBRLI  ST; 
END 

CURS.  SERLIST:  =FWDa).  S3RLIST  ; 
CURS.STOP     AEDR:  =  FWDa).STOP    ADDR; 
C  URo).  TABLE  LIST  :=FWDa.TABLZLIST; 
CURa),NEST:=0; 
DELETE:=0  ; 
CLEAN  (CUR    DELETE)  ' 
CURo)'.  LENG^  H:=CURalLENGTH-^FWDa).LENGTH-  ((  DELETE +  1)* 

FJUMPCONST)  ; 
EISPOSE(FME, TABLE)  ; 
END;                                                                                                  (*    MERGES    *) 
(♦ *) 
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^:^  —  —  —  —  —  —  —  _>.  —  —  ^— __  —  _  _.—  .  —  —  ____—  —  .^_.____^. __  —  __— —_—,:^\ 

'*  MCE  SUMTOTFJMP:  SIMULAIES  THE  COMBINE  OF  THZ  FJMF*') 
■*  ims  IS  A  PREDICTION  I?  ADJACENT  SEGMENTS  WERE  *) 
'*          MERGED.  *) 

'♦ « . *) 

PROCEDURE    MOD    SUMTOTF  JMP  (CUR,  F  WD:  T3LPTH  ; 

VAS    DELSUMFJMP:  INTEGER)  ; 

VAR    F,T:T3LFTR;       f  COUNT:  INTEGER  ; 

BEGIN 

FCOUNT:=0; 

P:=CORa).F    JUMPLIST; 

WHILE     F<>"NIL    DO 

BEGIN 

IF    P3.JDMP    ADDRTO<=FWDS,STOP    ADDR    THEN 

FC0UNT:  =  7C0UNT-t-1  ; 

T:=FWDa;.F   JUMPLIST; 

WHILE     lOTIIL    DO 

EEGIN 

IF    to). JUMP    ADDRTO    =    To). JUMP    ADDRTO    THEN 

FC0UNT:='FC0UNT+1  ; 

T:=Ta).NEXI    FJUMP; 

END; 

P:  =Pa).  NEXT    FJUMP; 

END; 

DELSUMFJMP:  =  (FCOUNT+  1)  *FJUMPCONST; 

END;                                                                                (*    MOD    SUMTOTFJMP    *) 
^* r *) 


i4c *\ 

*    MOD    SUMTOTSER:    SIMULATES    THE    CHANGE    TO    TOTAL    LEN    *) 

'*          EICAUSE    OF    THE    MERGING    OF     ADJACENT    SEGMENTS.  *) 

* , *^ 

SCCECUHE    MOD    SUMTOTS BR (CUR ,FWD : T3L? TB ; 

VAR    DSLSUMSBRZ:INTEGER)  ; 

VAR    P,T,FP,TI:TBL?TR;     SCOUNT  :  INT  SGER; 

EEGIN 

SCOUNT  :  =  0; 

F  :=CUR3.SEFIIST; 

WHILE    PONII    DO 

EEGIN 

T:=FWD2.SBRLIST; 

WHILE    TONIL     CO 

BEGIN 

PP  :  =Pa) .  S3  R  • 

IF'F?alTAG'=    SBRBREAK    THEN 

EEGIN 

IT:=T3.SER; 

IF    TTol.TAG    =    S5R3RSAK    THEN 

IF     PPd).3BRZ    =    TTa).SBRZ    THEN 

SC0UNT:=SC0UNT-i-1  ; 

END; 

T:  =Ta).NEXT    SBR; 

END; 

P:=Pa).NEXT    SBR; 

END; 

DEISUMSERZ : =SC0 UNT*S3RC0NST ; 

END;                                                                                  (*    MOD    SUMTOTSER    *) 
/* ^ •= :ecj 

BEGIN 

CGR:=CURSEG; 

DIAGS    NEST1LENGTHCHK(TEMPFILE, CUR, GOOD    SEGMENT); 

SUMT07:=0: 

SUMSBRC:=0; 

IF    CUR3.  SBRLISTONII    THEN 

SERSUM  (CURa).SBRLIST,SUMS3RC)  ; 
SUMCUR:=CURa).LENGTH+SUMSBRC; 
WHILE     (CURo).  TABLELISTONIL)     DO 
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EEGIN 
FWD: 
SUMS 
IF     F 

SB 
SOMF 
SUi^T 
MOD 
MOD" 
SUMT 
IF    S 

BE 


EN 

ELSE 

BE 


=cuRa 

EHF:  = 

SDo).  S 

RSUM  ( 

WD  :  =  F 

CT :  =  S 

SDMTC 

SUMTC 

CT :  =  "^ 

UMTOi 

GIN 

MERGE 

CURo). 

SOJICU 

D 


.TABL2LIST; 

0; 

ERLIST 

FWDa).S 

WDd).LE 

UMC03+ 


TFJMP  ( 
TSBRfC 
UMTOT- 
<=LI.^I 


ONTL    THEN 
BRLIST,SUMSBRF) ; 
NGTH+SUMS3RF; 
SUMFWD; 
CUR,FWD,DELSUMFJMP) ; 
UR,FWD,D£LSUMSBRZ) ; 
DELSUMFJMF-DELSUMSBRZ; 
T    THEN 


S(CUR, 
LENGTH 


FWD)  ; 

:=CURa),LENGTH-DELSiJMSBRZ; 
H:=SUMTOT; 


GIN 

RESET    INCLU 

RESET'INCLO 

CUR:=TWD; 

DIAGS    NEST1 


SUMCDR:=COR 

saMSERC:=0: 

SBRSOM(CURa) 

SOMCCB:=SUM 

END; 

SIJMTOT:  =  0; 

END; 

IF    CURa.  SBRLISTONI 

RESET     INCLUDED (CU 

C0RSEGa)TCOALFSCED:  = 

END; 
(♦ 

BEGIN 

CURSEG:=SBR; 
SBRINVNEST:=SBFINVNES 
DIAGS    NEST6SBRINVCHK ( 


DED  (FWDdt.SBRLIST)  ; 
DED  (CURo).  S3RLIST)  ; 


LENGTHCHK (TSMPFILS ,CUR , 

GOOD  SEG.1ENT)  ; 
a. LENGTH; 

,SERLIST,SUMSBRC) ; 
CUR+SUaSBRC; 


L    THEN 

RS.SERLIST)  ;      (*ALL    INCLUDES    RSI*) 

TRUE; 

(*    COMBINE    *] 


''-l\ 


END 


T+1  ; 

TEM?FILE,CURSZG,GOOD    SEGMENT, 

SBRIITVNEST)  ; 
CHK    SEGSIZE(CUBSEG, LIMIT)  ; 
CCMlINEfCURSEG, LIMIT)   ; 
SERINVNEST:  =  S3RINVNEST-1  ; 


(*    COALESCE    * 


J] 
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=  =  =  =  ==  =  =  ==  =  =  =  ======  =====  =  ===  =  =  =  ==  =  ===  ==  =  =  =  =  =  =  =  =  ===* 

'*  INSIEUCTIONS:     PBINTS    OUT    THE    SBGMSNTED    CODE    TOGETHZB    * 

'*  WITH    OTHEB    INFORaATICN    TO    USE    THE    SEGMENTED    CODS.       * 

'*  DCES    THIS    BY    FIRST    CHECKING    THE    SEGMENT    TABLE    AND      * 

*  ASSIGNING  A  MEMORY  MODULE  NUMBER  TO  SPECIFIC  lOCA-  * 
'*  IICNS   IN     THE    TABLE    WHERE    S BR    BREAKS    OCCUR.        AN               * 

*  IJ^ILIED  ASSIGNMENT  IS  MADE  TO  THE  FIRST  S3R  AS  A  * 
**  START  POINT.  OTHERS  ARE  INCLUDED  IF  THERE  IS  A  ER  K* 
•*  LEADING    TO    IT.       ONCE    MODULES    ARE    ASSIGNED    THEN    CODE* 

*  WITH    PROMPTS     ADDED    ARE    COPIED    FROM    THE    ORIGINALS.       * 

;*  THESE   COPIES     ARE    THEN    PRINTED    OUT.  * 

^  =  ==  =  =  —  —  —  —  =  ===  =  =  =  =========  =  =====  =  =  =  ======  ==  =  =  =  =  ===  =  ==  =* 

'RCCEDUEE    INSTRUCTIONS  (VAR    OUTFILS,  MESSAGEFILS  , 

TEMPFILEiTEXT;     BUILT    CODE:CODE?TR 
SEGTBL:TflL?TR:     PART    NUM:INTEGER 
PARTITICN:REAL;     GOOD    SEGMENT : BOOLEAN) 
VAR    HEAE_MEM0DULE:T3L?TR; 

*  BID    MEMODULNOCES:     BUILDS    THE    M2M0DULES    BASED    ON    THE*] 

*  EFEAKS    ENCOUKTERSD    IN    THE   SEGTBL  * 
^« ^ 

EROCFCURE    ELD    MEMCDULENODES (SEGTBL: TBLPTR ; 

VAR    HEAD    MEMODULE:TBLPTR)  ; 
VAR    Ti^IL    MEMODULEr  SEG:TBIPTR; 
MEMCDUNTzINTEGER; 

* • *' 

*  INSERT     MEMOEULENODES:     INSERTS    A    MEMODULENODE    INTO*] 
•*         THE    HEMODDIELIST,       IT    MUST    FIRST    CHECK    TO    SEE      *' 

*  THAT     IT    IS    NOT    ALREADY    ACCOUNTED    FOR    AS    THERE       *] 

«AY     BE    MULTIPLE     INVOKES    OF    THE    SAME    BREAK. 
*) 

SRCCFBURE    INSERT    M EMO DUL ENODES  (SEGTBL: TBLPTP ; 

VSR    HEAD    MEMODULE,TAIL    MEMODULE : TBLPTR ; 
VAE    MEMCT3UNT:INTEGER)  ;*" 
VAR    INSERT:TEIPTR; 

i« * 

(«    NOT     IN    M0CCLELI3T:     CHECKS    TO    SEE    I?    IN    LIST  * 

iif r_«r ^ « 


UNCTION    NOT    IN    MOD ULELIST (S EGT3L, HEAD    MEMODULE 
"      "  "•  -IBL 

EOC 


:  TBLPTR)  : 
LEAN; 


VAR   SrTBLPTB; 

BEGIN 

S:  =  HEAD    MEMODULE: 

NOT    IN    ^CBULELIST:=TRUS; 

IF    SOUIL    THEN 

BEGIN 

WHILE    SONIL    DO 

BEGIN 

IF    Sa.SEGTELS    =    SEGTBL    THEN 

NOT    IN    MODULSLIST:=FALSH; 

S:=Sa)7NE7T; 

END; 

END; 

END;                                                                (*    NOT    IN    MODULELIST    *) 
4 ■r_--= ^ *j 

lEGIN 

IF    NOT    IN    MODULELIST  (SEGTBL, HEAD    MEMODULE)     THEN 
EEGITI      " 

NE WfINSERT,ME MODULE) ; 

IN SERT a. T AG: = MEMODULE; 

IN3ERTS.MEMNUM:=MEMC0UNT; 

MEMC0UNT:=MEMC0UNT+1; 

INSERTS. OFFSET:  =  -SEGTBLa).  START    ADDR; 

INSERTS. HIGHOFFSET:=- (SEGTBLo). "START    ADDR    DIV 

100); 
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INSERT2.LOWCFFSET:  =  -(3EGTBLa).START     ADDH 

100*INSE3Ta).ITlGHOF?SST) 
INSEETol.RETURNCODE    NEED  ED ;  =F  ALSE,• 
I  NSERTa.CODELIST  :=TIIL ; 
INSERTa.SEGTBLS:=SEGT3L; 
INSERTS. NEXT:  =NIL; 
IF    HEAE    MEMODULE    =    NIL    THEN 

HEAD    'HEMODULE:=INSERT; 
IF   TAII    MEMODULE    <>    NIL    THEN 

TAIL    ■aEMODULEa).NEXT:=INSERT; 
TAIL    M'EMOD'JLEl^INSEET; 
END;       ~ 


END;                                                               (*    INSERT    MSMODUL ENODES 
(* r 


-I 


* • , 4:  I 

*  BECURSE    BLD    MEMODU LENODES:     IS    THE    RECURSIVE    PART    * 
'*  CF   TH"E    BLI    C1EMN0DE    ROUTINE.       GOES    WITHIN    THE         * 

*  THE     SB3FIRST    THEN    DOWN    THE    3BRLIST.  * 

*  RECURSION    IS    USED    TO    TRAVERSE    THE    SEGTBL.  *) 

'■* :Jej 

■RCCECURE     SECUESE    BLD    IlEMNODES  (  SEG:  TBLPTH  : 


V 


Air    HElb    MSMODULSrTAIL    MEil6DULS  :  TBIPTR  ; 

VAR    M"E^COUNT:INTEGER)  ; 


VAR    SEG    SBR,SER,SBRL:TBLPTR; 

BEGIN      ~ 

SEG   SBR;=SEGa.TA3LELIST; 

WHILE     SEG    SERONIL    DO 

BEGIN      " 

INSERT    MEMODULENODSS(SEG    SBR-HEAD    MEMCDULE, 

TAIL    :iEMODUrE,MEMCCUNT)  ; 

SEG    SBR:  =  SEG    SBRo!.  TABLELIST ; 

END;    " 

SEG    SBR:=SEG; 

WHITE     SEG    SERONIL    DO 

BEGIN       " 

IF    SEG    SBRa.SERLISTONIL    THEN 

EEGITJ 

SBEL:=SEG    SBRS . SBRLIST ; 

WHILE    SBRIONIL    DO 

EEGIN 

SBR:=SBRL^.SBR; 

IF    SBRS.TAG    =    S3RBREAK    THEN 

INSERT    MEMODULSNODES  (SBRo).  SERZ, 

HEAD    MSMDDULS.TAIL    MEMODULE , MEMCCUNT)  ; 

IF    SHRS.TAG    =    SBRBiTEAK    THEN 

S3R  :  =  SBRa).SBRZ; 

RECUR SE    5LD    MEM  NODES  (SBR, 

HEAD    HEM0CULE,TAIL    MSMODULE, 

MEMCOUNT)  ; 

SBRL:  =SBRLa).NEXT    SBR; 

END; 

END  ; 

SEG    SBE:=SEG    SBRo).  TABLELIST; 

END;    " 

END;                                                (*    RECURSE    BLD    MEMODULENODES    *) 
(* -  — _= «j 

BEGIN 

HEAD   MEMODaLE:=NIL; 

IAII~MEMODULE:=NIL; 

MEMCT3UNT  :=  1  ; 

SEG:=SSGTBL; 

INSERT     MEMODULENODES  (SEG, HEAD    MEMODULE, 

TIIL    MEMODULS^MEMCCUNT)  ; 
BECURSE     ELD     MEMNODE  S  (SEG,  HEAD    METIODULE, 

TIIL    i1EM0DULE,MEMCCUNI)  ; 

END;                                                                          (^    "BLD    MEMODULENODES    *) 
(♦ , *f 
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r# , ,:)? 

I*    BID    ME:10DULECCDE:    THIS    HOUTINE    BUILDS    THE    CODE    FCR    * 
'«         THE    MEMORY     MCCaiE    CODELISTS.     IT    WILL    JUSTIFY    ALL    *' 
*         THE    ADDRESSES    AND    ADD    EREAK    CODE.  *' 

'* :jcl 


■HOCECURE    ELD    MEMCDULECODE  (BUILT    CODS: CODEPTR ; 

VAIT    HEAD    MEMODULE: 
VAB    CUBMEM  :TBLFTR; 


TBLPTE) 


'* „ 

*  ELD    A    MEMORY:    THIS     ROUTINE    INITIALIZES    THE 

*  RIICITRSIVE    PROCESS    THAT    HILL    BE    DONS    IN    THE 
•*         FORM    MEMORY    ROUTINE. 


*■ 

*' 

*j 

'ROCECURE    ELD    A    MEMORY(BUILT   CODE ;  CODEPTR ; 

~    "  ~VAR    HSAD_MEMODULS:TELPTR 

CURMEM:TBLPTR) 


VAR    ADDRESSS:INTEG2R; 

CODE    H.CCCE    T:TBLPTR; 
SEG:IBLPTR;" 


1^ *\ 

*  FORM    MEMORY:     BUILDS    A    COMPLETE    MEMORY    MODULE         *' 

*  COHE    COMPLETE     WITH    BREAK    CODE    AND    JUSTIFY.  *] 

*  ROUTINE    RECURS ES    ON    EACH    SBR    ON    THE    SBRLISTS    * 

:(t____  _  ___  _  _____  ___ ___  __________  __  _:^^ 

BOCEDURE    FOBM    MEMORY  (BUILT    CODE:CODS?TR ; 

""VAR     HEAD    MEMODULE, CURMEM^SEG, CODE    H, 

CODE    T:TBLFTR; 
VAR    ADDRSSSSTINTEGER) ; 
VAR   CODE    HH,CODE    TT, SER,SBRL: TBLPTR ; 

'* •= r  _ :4c  J 

*  PROCESS    SEG:    TAKES    CARS    OF    ONE    SEGMENT    IN    THE*] 

*  SEGME'HI    TABLE'S    WORTH    OF    CODE.  * 

PROCEDURE    PROCESS    SEG(BUILT    CODE : CO DEPT R ; 

VAR    HEAD    MEMODULE, 
CURMSM:TBL?TR:     ST:G:TBIPTR: 
VAR    CODE    HH^CODE    TT:TEIPTR 
VAR~ADDRESS^: INTEGER) 
VAR    START, STOP:  INTEGER; 


j*    COPY    CODE 
j*         STOP    PO 

Procedure  co 


:     COPIES    CODE    FROM    A    START    TO    A 
INT    OF    THE    BUILT    CODE 


PYCODE(BUILT    CODE: CODEPTR ; 

VAR~CODS    HH,CODE    TT:TEL?TR 
^Al    ADDRSS"SS:INTEGER 
START, STOP:INTEGER) 
,CURTP:IBLPTR; 
CODEPTR; 


VAR    I 

C 

BEGIN 

CUR 

WHI 

C 

NEW 

INS 

INS 

INS 

ADD 

INS 

INS 

COD 

COD 

REP 

N 

C 

I 


NSERT 
URCP: 

CP:  =  B 

LE    CU 

URCP: 

(INSE 

ESTd). 

ERTcD. 

EBTa. 

RESSS 

EETa>. 

ERTa). 

E    HH: 

E'TT: 

ElT 

EW  (IN 

URCP: 

NSERT 


UIL T    CODE ' 

RCPa)7AADDR<>START    DO 

=CURCP3.SEQ; 

RT,CODE)  ; 

TAG  *  =CODE  * 

ABS  *  ADDR^^^CURCPa.  AADDR; 

ADDlESS:=ADDRESSS; 

:=ADDRESSS+1 ; 

KEYCODE:=CURC?a).KEY; 

SEQUENTIAL:=NIL; 

=  IN3ERT; 

^INSERT; 

SERT,CODE)  ; 
=CURC?S.SEQ; 
(2).T  AG:=CODE; 
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(* 


INSERTS). &BS    ADDR:=CaRCPa).AADDR; 
INSERTo).  ADD'RESS:=ADDRES5S: 
ADCRESSS: =ADDRESSS+1; 
INSERTa).KEYCODE:=CURCPa).KEY; 
CODE   TTo).  SEQaENTIAL:-INSERT; 
C0CE"TT:=INSERT: 
UNTIL   TCURCFa. AADDR    =    STOP); 
CODE    TT3.SEQUENTIAL:=NIL; 
END;       "  (*    COPYCODE    *j 


* *: 

*  ADD    REIURNCODE:     ADDS    SBR    RETURN    CODE    TO    THE*] 

*  TIIL    SEGMENT    OF    THE    INVOKED    S3R  *' 
« ^ . > 

PROCEDURE    ADD    R ETURNCODE ( VA R    CODE    TT:TELPTR; 

7AR    ADDTJESSSlINTEGSR)  ; 
VAH    INSERT:TBLPTR; 
BEGIN 

CODE    TTa).KEYCODE:=STO;        (*INVSBR    CHG    2    STC*) 

NEW  (INSERT,  CODE)  ; 

INSERTa).TAG:=CODE; 

INSEBTa).  ADD  RESS:  =ADDR  ESSS  ; 

ADDRESSS:  =  ADDRESSS  +  1  ; 

INSEETai.KEYCODE:=DISPLAYREGST0RE;  (*D  ISP  LAY*) 

CODE    TTa).SSQUENTIAL:  =  INSEET; 

CODE~TT:=INSERT; 

NEW  (INSERT-CODE)  ; 

INSSRTa).TAG:=CODE: 

INSESia. ADDRSSS;=ADDRESSS; 

ADDRESSS:=ADDRESSS+1 : 

INSERTS.  KEYCODE:=RCLIND;  (*    RCL    IND    *) 

CODE    TTa).SEQUENTIAL:  =  INSERT; 

CODE"IT:=INSERT; 

NSW  (INSERTjCODE)  : 

INSERIa),TAG:=CODE; 

INSEFTo).  ADDRSSS:=ADDRESSS; 

ADDRESSS:=ADDRESS3+1 ; 

INSERTa).  KSYC0DE:=MANRTNR2G;  (*    MAN    RTN    REG    *) 

CODE    TTa).S2QUENTIAL:=INSERT; 

C0DE3TT:=INSERT; 

NEW  (INSERT,  CODE)  ; 

INSERTS. TAG :=CODE; 

INSSETo).  ADDRESS:=ADDRESSS; 

ADDRESS3 :  =  ADDRESSS+1  ; 

INSERTS.  KEYCODE:=OP;  (*    CP    *) 

CODE    TTa).SEQUENTIAL:  =  INSERT; 

CODE~TT:=INSERT; 

NEW  (INSERT,  CODE)  : 

IN3S5Ta).TAG  :=CODE: 

INSEETd).  ADDRESS:  =ADDRESSS; 

ADDRESSS:=ADDRESSS+1 ; 

INSERTS.  KEYCODE:=30<-aANRTNREG;  (*  +  MANRTNREG*) 

CODE    TTa).SEQUENTIAL:  =  INSERT; 

CODE"TT:=INSERT; 

NEW  (INSERT,  CODE)  ; 

INSERTS. TAG :=CODE: 

INSE5TS. ADDRESS: =ADDRESSS; 

ADDRESSS:=ADDRESSS+1 ; 

INSERTS. KEYCODE:=RS;  (*    RUN/STOP    *) 

CODE    1TS.SEQUE^TIAL:=INSERT; 

CODE~TT:=INSERT; 
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CODE    TTa.SEQ[JENTIAL:  =  NIL; 
END;       ~  (*    ADD    RSTURNCODZ    * 

^4e ^ * 

(« if 

*  AEDCOEE    SBR3RK    MARKINVOKED:     ADDS    CODE    FOR    A* 

*  SBRER'K    AND    WILL    MARK    THE    INVOKED    RTN    FOR    * 

*  MANUAL    RETURN    CODE  * 

'ROCEDURE    ADDCODE    3BRBRK     MARKINVOKED 

(VlR    HEAD'MEMODULE^CURMEM  :TBLPTR; 
SEG:T3L7TR;    VAR    CODE    TT:TELPTR; 
VAR    ADDRESS'S:  INTEGER)  ; 
VAR    INSERT, SBR,SBRL:TBL?TR; 
LBIADDRiINTEGER; 

*  FIND    LBL:     FINDS    THE     LABEL    FROM    A    GIVEN         *) 

*  ADDRESS     OSING    THE    BUILT    CODS    LIST  *\ 
* r *j 

UNCTION    FIND    LBL(BUILT    CODE : CO DEPT R ; 

ADDREHS:INTEGER) :INTEGER; 

VAR    CrCODEPTR; 

BEGIN 

C*=EUILT    CODE* 

WHILE    CSTAADD^.OADDRESS    DO 

C:=Ca).SEQ; 

FIND   LBL:  =Ca).SEQa).KEY; 

END;      "                                                             (*    FIND    L5L    *) 
(# , ^r *j 

if * 

*  GENCCDESBR:    ADCS    CODE    FOR    A    BRK    S ER    INVOK* 
* ,_« 

PROCEDURE    GENCODESBfir/AR    CODE    TT:TBLPTR; 

HEAD    MEM0DULE,CTTRMEM,SBR:T2LPTa; 
VAR    ADDRESSS:INTEGSR)  ; 
VAR    RELA DDR, HUNDREDS, TENS, UNITS: INTEGER; 

MEMPTR: TBLPTR; 
BEGIN 

MEMPTR:=HEAD    MEMODULS; 
HHIIE(MEMrTR^.SEGTBLS<>SBRa).SBRZ)     EO 

MEMPTR:  =MSMPTRa).  NEXT; 
R£LADDR:  =  S3Ra).S63Za),START    ADDR^MEMPTRo!. 

HUNCR£DS:=RELADDR    DIV    100: 

TSNS:=  (RELADDR- (HUNDREDS*100)  )     DIV    10; 

UNITS:=RSLADDR-  (HUNDREDS* 10 O+TSNS*  10)  ; 

NEW  (INSERT, CODE)  ; 

INSERTS. TAG:=CODE; 

INSERTS. A  DDR  ESS: =AD DRESS S; 

AD C RES SS: =ADDRESSS+1 ; 

INSERTS. KEYCODE:=LaL;  (*    LEL    *) 

IF    CODE    TT    <>    NIL    THEN 

CODE    TTa).SEQUENriAL:=INSEaT; 
CODE_TT:=INSERT; 

NEW  (INSERT, CODE)  : 
INSERTS. T AG: =CODE; 
INSERTS, ADDRESS :=ADDRSSSS; 
ADERESSS: =ADDRSSSS+1; 

INSERTS. KEYCODE:=FIND    LBL  (*    KEY    LEL    *) 

(BUILT   CODE, S3HS.SBRZS. START    ADDR)  ; 
CODE   TTS.SEQU1:nTIAL:=INSERT; 
CODE~TT:=INSERT; 
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NEW  (INSERT, CODE)  : 

INS£RTa).T  AG:=CODE; 

I NSZRTS.A DDE ESS :=ADDRESSS; 

ADCRESSS: =ADDRESSS+1; 

INSERTS).  KEYCODS:  =  STO; 

CODE   TTS,  SSQUENTIAL:=IN3ERT; 

COCE~TT:=INSERT; 


(*    STORE    *) 


NEW  (INSERT, CODE)  : 

INSERTS). TAG:=COD£: 

INSERTS. ADDRESS :=AD DRESS S; 

ADCRESSS: =ADDRESSS+1; 

INSERTS. KEYC ODE: =D I SPLAY REGST ORE; 

CODE   TT3. SEQUENTIAL:=IN3ERT; 

CODE~TT:=INSERT; 

NEWJINSERT.CODE)  : 

INSERTS.!  AG:  =CODE; 

INSERTS. ADDRESS :=ADDRES3S; 

ADCRESSS: =ADDRSS3S+1; 

INSERTS.  KEYCODE:  =  0?; 

COCE   TTS. SEQUENTIAL:=INSERT; 

CODE"TT:=INSERT: 


NEW  (INSERT, CODE)  ; 

INSERTS.! AG:=CODE: 

INSERTS.  A  DDR SSS:=ADDRESSS; 

ADERSSSS: =ADDRESSS+1; 

INSERTS.  KEYC  ODE  :  =  2  0+MANRTNR  EG; 

COCE   TTS.  SEQfJENTIAL:=INSERT; 

CODE~TT:=INSERT; 


(*DISP*) 


(*    CP    *) 


(*    INCH    *) 


NEW  (INSERT, CODE)  : 

INSERTS.! AG:=CODE; 

INSERTS.  ADDRESS :=ADDRES3S; 

ADCRESSS: =ADDRESSS+1; 

INSERTS.  KEYC0D2:=CU RM EMS. HEMNOM 

COCE   TTS. SEQUSNTIAL:=INSERT; 

CODE"TT:=INSERT: 


NEW  (INSERT, CODE)  ; 
INSERTS. TAG:=CODE: 
INSERTS. ADDRESS :=ADD3ESSS; 
ADCRESSS:  =ADDRES3S-H; 
INSERTS. KEYCODS:=STOIND; 
COCE   TTS.  SEQUSNTIAL:--INSERT 
CODE""TT:=INSERT; 


(*    MEM#    *) 


(*    IND    STO    *) 


NEW  (INSERT, CODE)  : 
INSERTS.T  AG:=CODE; 
INSERTS. A  DDR ESS: =AD DRESS S; 
ADCRESSS: =ADDRSSSS+1; 
INSERTS. KEYCGDE:=M A NRTN REG; 
COCE   TTS. SEQUENTIAL:=INSERT 
CODE~TT:=INSERT; 


(=*  MAN  ETN  *) 


(*  MEM  #*) 


NEW  (INSERT, CODE)  : 
INSERTS. TAG:=C0D2: 

INSERTS. A  DDR ESS: =AD DRESS S; 
ADCRESSS:  =ADDRESSS-H; 


229 


I  NSE3Ta).KEYC0DE:=  DECIMAL; 
COCE    TTo).  SEQUENTIAL:=INSSRT; 
C0CE3TT:=INSEET; 

NE«  (INSERTtCODE)  ; 
INSERTd).T  AG:=C0D2; 

INSERTS).  ADDRESS  :=AD  DRESS  S; 
ADCRESSS: =ADDRESSS+1; 
INSERTS. KEYCODS:=HUNDREDS;        (* 
COCE   TTS. SEQUENTIAL:=INSERT; 
CODE~TT:=INSSRT; 

NEW  (INSERT, CODE)  • 
INSERTa).T  AG:=CODE; 

INSERTa).ADDRESS:=ADDRESSS; 
ADCRESSS: =ADDRHSSS+1; 
INSERTS.KEYCODE:  =  TENS; 
COCE   TTt).  SEQrJENTIAL:=INSERT; 
C0CE2TT:=INSERT; 

NEW  (INSERT, CODE)  ; 
INSERT  a).TAG:=CODE; 
INSERTS.ADDRESS:=ADDRESSS; 
ADCRESSS: =AD0RSSSS+1; 
INSE3T2).  KEYCODE:  =  UNITS; 
COCE   TT5).  SEQUENTIAL:=INSERT; 
COCE~TT:=INSERT; 

NEW  (INSERT, CODE)  : 
INScRTa).T  AG:=CODS: 
INSERTd).ADDRESS:=ADDRSS3S; 
ADCRESSS: =ADDRESSS+1; 
INSERTS.  KEYCODE:  =  RS  ; 
INSERTd). SEQUENTIAL:  =NIL; 
CODE    ria.  SSQUENTIAL:  =  INSERT; 
COCE^TT:  =  INSSRT; 


*) 


HUNDREDS    *) 


(*    TENS    *) 


(*    UNITS    *) 


(*    R/S    *) 


(*    GENCOD£_SER 


END; 

BEGIN 

IF    SEG5.  SBRLISTONIL    THEN 
BEGIN 

ScRL:=SEG.1).SBRLIST; 
WHILE    SBRLONIL    DO 
BEGIN 

SBR  :  =  SHRLa),SBR; 

IF    SBRa).TAG=S3RBRSAK    THEN 

GENCODSSBE (CODE    TT,HEAD    MEMO 
CUR17EM,SBR,IDDRE 
SBRL:=SBRLa).NSXT    SBR; 
END; 
EN  C  * 
END;     '      *  (*    ADDC0DE_SBR3RK_MARKINV0 


ER    *) 


DULE, 
SSS)  ; 


KED    *) 
*) 
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h    JDSTIFY   CODE:    SETS    ALL    THE    JUMPS    ANC    ACDPS    * 
(At — * 

PfiOCEDURE   JUSTIFY    CODE (SSG, CURMEM : TBLPTR ; 

VAR   CODE    HH:IBLFTS)  ; 
7AR   T,F.JMPTa:TBLPTR; 

D£IADDR,RELADDR,ABSADDR;INTEGER; 

* *i 

*  ADVANCE  CODETBL:  ADVANCES  THE  CODEFTES  *' 
'*  OF  THU  1,  2,  AND  3-STEP  INSTRUCTIONS.  *] 
'* • *' 

'EOCEDOBS    ADVANCE    CODETBL(VAR    FrTBLPTR); 

BEGIN 

IF    Fa.KSYCODS    IN    STEP    3    THEN 

F:=F3).SE0UFNTIALa).SEQUENTIALa.  SEQUENTIAL 

a).  SEQUENTIAL 

ELSE 

IF   Fa.KEYCODE    IN    STEP    2    THEN 

F:  =Fa)  . SEQUENTIAL-]). SHQUENIIALo). 

SEQUENTIAL 

ELSE 

IF    FS.KEYCODS    IN     (STEP    1>(. 71,76.)) 

THEN    F:=Fa».SEQUSNTI Ala).  SEQUENTIAL 

ELSE 

F:=F3. SEQUENTIAL; 

END;                                                     (*    ADVANCE    CODETEL    *) 
(* * 

BEGIN 

F:=CCC£    HH; 
WHILE    F^>NIL    DO 
BEGIN 

IF   Fa.KEYCODE    IN     (STEP    3+STEP    2)     THEN 
BEGIN 

IF     FS.KEYCODE    IN    STEP    3    THEN 

T  :=F 2).  SSQUSNTIAL(i).  SEQUENTIAL 
ELSE 

T  :=Fa).  SEQUENTIAL; 
ABS  ADDR:  =  Td).  KEYCOD£*100; 
AB3 ADDR:=AflSADDR 

♦  T]).SEQUENTIALJ).KEYCODE; 
IF    SEGa).STOP     ADDR    >=    ABSADDP    THEN 
BEGIN 

DSLADDR:  =A3SADDR-T5).  ABS    ADDR; 
RELADDR:=Ta).  ADDRESS  +  DELlCDR ; 
Ta).KEYC3DE:=RELADDR    DIV    100; 
TS.SEQUSNTIALo).  KEYCODE:  = 

RELADDR-  (1 00*T3 . KEYCODE)  ; 
END 
ELSE 
BEGIN 

JJ1PTR:  =  SEG.3.F    JUMPLIST; 
WHILE    JMPTRa).JUMP    ADDRTOO 

ABSADDR    DO 
JMPTR:=JClPTRa).NEXT    FJUMP; 
Ta).KEYCOD£:=JMPTRS.    " 

JUMP    INTADDRTC1 ; 
Ta.SEQUENTIALa).KEYCOTJE:=JMPTRS, 

JUMP    INTADDRTC2; 
END; 
END; 
ADVANCE    CODETEL(F)  ; 
END; 
END;                                                                                (*    JUSTIFY    *) 
(* . *) 
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; *\ 

■    ACDCOCE    FJMP  :     ADDS    CODS    FOR    JUMP    BREAK  *( 

:OCED0RZ    ADDCODE    FJM?(VAR    HEAD    II  EMODUL  E,Ca  5M  EM  , 

SEC, CODE    TT:TE1?T3; 
7AR    ADDRESS'S-.TNTEGER)  ; 
VAE    CUB,INSERT,JUMPTR,MEMPTR:T3L?TR; 

ADDCRT01, ADDDRT02,MEM    ADDDRTO: INT EGER ; 

DELTA" AD  DRESS: INTEGER; 

*  GEN    JDMPCODE    SSTINTADDRS:     GENERATES    THE      * 

*  JUMP    CODE   IND    SETS    THE    INTADDR    FIELDS      * 

*  OF    THE    SEGMENT    TABLE    F    JOMPLIST.  * 
'*          INTADDR     ARE    THE    ADDRESSES    LOCAL    TO    THAT* 

*  SPECIFIC    PIECE    OF    CODE     (THE    PROMPT).  * 
* * 

PRCCEDQRE    GEN    JUMPCODE    SSTINTADDRS 

(VAR    CODE    TT:TBLPTR;"VAR    ADDD3SSS : INTEGER ; 

VAR    JUMPIR:IBLPTR) ; 
VAR    INSERT: TBLPTR; 

HUND  RED  S,TENS/JNITS,RELAD  DRESS:  INTEGER; 
BEGIN 

HUNDREDS: =JUMPTR^. JUMP    ADDRT01; 
TSNS:  =  JUMPTR'J.  JUMP     ADDTJT02    DIV     10; 
UNITS;  =JUMPTRa).JUMF_ADDRTO2-(10*T ENS)  ; 

NEW  (INSERT, CODE)  ; 

INSERTa).T  AG:=CODS; 

INSERTa).ADDRESS:=ADDRESSS; 

RE IADDRESS:= ADDRESS S; 

ADCRESSS: =ADDRESSS+1; 

INSERTS. KEYCODS:=STO;  (♦    STO    *) 

IF    CODE   TTONIL    THEN 

CCDE    TTa.SSQUENTIAL:=INSSRT; 
COD£_TT:=INSERT; 

NSW  (INSERT, CODE)  • 

INSERT  a).TAG:=CODE: 

INSERTa).ADDRESS:=ADDRESSS; 

ADDRESSS: =ADDRES3S  +  1  ; 

INSERTa).KEYCODE:=    DISPLA  YREGSTORE  ;  (*DISF*) 

CODE   TTo).  SSQUENTIAL:  =  INSERT; 

C0EE3TT:  =  INSERT; 

NSfc  (INSERT, CODE)  : 

INSERTS. T  AG:=COD£: 

INSERTo).  ADDRESS:=ADDRESSS; 

ADCRESSS: =ADDRESSS  +  1  ; 

INSERTo). KEYCODE:=CS;  (*    CE    *) 

CODE   TTo).  SEQUSNTIAL:  =  INSERT; 

C0CE3TT:=INSERT; 

NEW  (INSERT, CODE)  ; 

INSERT  a).TAG:=CCD£; 

INSERTS).  A  DDR  ESS:  =AD  DRESS  S; 

ADDRESSS:  =ADDRSSSS-»-1  ; 

INSERTo). KEYCODE:=    JUMPTRa.MEM    ADDR; 

CODE   Tia,  SEQUENTIAL:  =  INSEET;    " 

C0EE3TT:=INSERT; 

NEW  (INSERT, CODE)  ; 

INSrRTa).TAG:=CODE: 

INSERTa).ADDRSSS:=ADDRESSS; 

ADCRESSS:  =ADDRESSS  +  1  ; 

INSERTo). KEYCODE:=    DECIMAL;  (*.*) 

CODE    TTo).  SEQUENTIAL:  =  INSERT; 

COCE~TT:  =  INSERT; 
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NEW  (INSERT, CODE)  ; 

INSERTS. TaG:=CODE: 

INSEST.a).ADDRESS:=ADDRSSSS; 

ADERESSS: =ADDRESSS+1 ; 

IN3ERTa).KEYC0DE:=aUNDREDS;  (*    100S    *) 

CODE   TTo).  SEQUENTIAL:  =  INSERT  ; 

COCE~TT:=INSERT; 


NEW  (INSERT, CODE)  : 

INS£RTa).T  AG:=CODS; 


INSERTa).ADDRESS:=ADDRESSS; 

ADDEESSS: =ADDRESSS+1; 

IN£ERTd).KEYCODE:=    TENS;  (*    1 0S    *) 

CODE   TTo).  SEQUENTIAL:  =  INSERT  ; 

C0CE;2TT:  =  INSERT; 

NEW  (INSERT, CODE)  : 

INStRTd.T AG:=CODE; 

INSERTa).ADDRESS:=ADDRE3SS; 

ADDBESS3: =ADDRES3S+1  ; 

INSERTa).KEYCODE:  =  UNITS;  (*     IS    *) 

CODE   TTa).  SEQaENTIAL:  =  INSERT  ; 

C0CE2TT:=INSERT; 

NSW  (INSERT, CODE)  : 

TNSERTa).T  AG:=CODE; 

INSERTa).ADDRESS:=ADDRSSSS; 

ADDEESSS: =ADDRES3S+1 ; 

INSERTS. KEYCODE:=RS;  (*    R/S    *) 

CODE    TTo).  SEQaSNTIAL:=INSERT; 

COEE~TT:=INSERT; 

CODE~TTa.  SEQUENTIAL:  =  NIL; 

JUaPTRS.JaMF    INTADDRT01:=RELADDRESS 

DIV    100; 
JOMPTRS.JUMF    INTADDRT02;=RELADDRSSS-     100* 

JQMPTRa.JDMP    INTADDFTC1; 
END;  (*    GEN    JOMPCODE    SlSTINTADER    * 

4c 4c 

EGIN 
IF    SEGfiD.TABLELISTONIL    THEN 
BEGIN 

MEMPTR:=HEAD    MEMODULE; 

WHILE    NOT  (SEUS.  STOP    ADDR+I    =    MEMPTRo), 

3ET?TaLSa). START    ADDR)     DO 
ME  MPT  R  :  =  MS  MPT  R  0) .  N  EXT  : 
AEDDRTO  1  :=MEMPTRa)  .SSGTBLSa.  START    ADDR 

"DIV    100; 
AEDDRT02:=MEMPTRcD.SEGTBLSa).  START    ADDR 

-  (100*AD"DDRTO  1)  ; 
ADDDRTO  1:  =  ADDDRT01  +  MEMPTR5).HIGH0FFSET  ; 
AEDDRT0  2:  =  ADDDRT0  2+MEMPTRt).L0W0FFSET; 
MEM    ADDD2T0:  =  MSMPTRa).MEMNUM; 
NEWTJUMFTR.FWD   JUMP) ; 
WITH    JUMPTRo)    DD 
BEGIN 

JUMP    ADDRT01 :=ADDDRT01; 
JUMP~ADDRT02:=ADDDRT0  2; 
MEM    IDDR:=MSM    ADDDRTO; 
END;     " 
GEN    JUMPCODE    SETINTADDR 

"    (CODE    TT,ADDRSSSS,JUMPTR) ; 
DISPOSE  (JUMPTR,FWD   UUMP)  ; 
EN  E  •  ~ 

IF    SEGo).  F    JUMPLISTONIL    THEN 
BEGIN      " 

JUMPTR:  =S£Ga).F    JUMPLIST; 
WHILE   JUMPTRONIL    DO 
BEGIN 

MEMPTR :=HEAD_MSMODULE  ; 
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WHILE    NOT  ((JOMPTRa.  JUMP    ADDETC    >= 

MEMPTR^.SEGTBLS-i). START    ADDP)  AND 
(JUMPT&3.JUMP"ADD?TC<= 
ME«PTRa).SEGTBLSa>.STOP    IDDR))     DO 
MEM?TR:=MEMPTR5).NEXT;       " 

DELTA    ADDRESS  :  =  JU?lPTRa).  JUMP    ADDFTO- 

~      MEMPTRd).SSGT3LSd).  STIET    ADDP; 
ADDDET01  :=DELTA    ADDRESS    DIV     10U; 
ADDDRTO2:=DELTA~ADDRESS-10  0* 

ADDDRT01; 
MEM    ADDDRTO:=MEMPTRS.MEMNUM; 
JUM'FTRa).  JUMP    ADDRT01 :  =ADDDRT01 ; 
JUMPTRa).JUMP"ADDRr02:  =ADDDRT02; 
JUMPTRa. MEM    IDDR:=MEM    ADDDRTO; 
GEN    JUMPCODE    SETINTADT5RS 


(CODE    TT,AI;DRESSS,JUMPTR) 
fMPTR:=JUMPTRa).NEXT    


JUMPTR:=JUMPTRa).NEXT    FJUMP 
END; 
ENC; 
END;  (*    ADDCODE    FJJ^P    * 

BEGIN 

ST  ART  :=SEGa).  START    ADDR; 
STCP:=£EGa.STOP    AUDR; 
COPYCOCE(BUILT   CODS, CODE    HH,CODE    TT, 

"ADDRESS^, START, STOP)  ; 
IF    (CUBi1Erid).RETURNC0DE    NEEDED)  AND 

(SEG=CURMEM3,SEGTBLS)     THEN 
ADp_RETURNCqDE_{CODS_TT_,  ADDEESSS)  l^^ 

r 


ADCCOUE    FJMP(HEAD    MEMDDfJLE  ,CaRKEM  ,  SEG  .CODS    TT 
~ 7 ADDRSS^S) 

S) 


ADCCODE    SBHBRK    MARKINVOKED  (HEAD    MEMODULE, 

~     curmem,seg,cod"e:  TT,ADDRSSSS)  ; 
JUSTIFY   CODE (SSG,CURMEM, cods    HH)X 
END;  ~  "(*    PROCESS    SEG 
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'« 4c 

*  ?1ARKINVCKED:    a  ARKS    MEMODaLE    OF    SBE    WHICH    WAS    * 

*  INVOLVED    IN     A    BBEAK    FOR    A    MANUAL    RETURN.  * 
'*         ADD    aElEUNCOCE    USES    THIS    MARK    TO    ADD    CODE.     * 

■ECCEDURE     MAHKINVOKED(VAR    HEAD    MEMO  DULE  :  TBLPT  R; 

""  S3R:TBL?T^)  * 

VAR    MEMPTB,    SBR    BRKINCLUD E: TBLPTR ; 
BEGIN 

SBR    BRKINCLUDE:=SBRa).SBRZ; 

MEMFTR:=HEAD    MEMODULE; 

WHILE    SER    BRKlNCLUDEd).TABLELIST<>NIL    DO 

SBR    ERKINCLUDE:=SBR     BRKINCLU  DEo) .  TAELELISI; 
WHILE    T!EMPTRa>.SEGTBLS<^S3S    3RKINCLUDE    DO 

MEMPTR:=MEMPTR3.NEXT;       ~ 
MEMPTR2.RETURNC0DE    NEEDiD : =T RUE ; 
END;                                            ~                             (*    MARKINVOKED    *) 
« *j 

EGIN 
IF     (SEGS. INCLUDED    =    FALSE)     THEN 
BEGIN 

process  seg  (built  code, head  memodule ,cu pm em , 

seg^cude   hh^code  tt,addresss) ; 
if  ccde  h=nil  then    ~ 

coce  ■h:=code  hh; 
if  ccde  tonil'then 

code  t5  .sequential: =code  hh ; 
segs.inct:uded:=true; 

CODE    T:  =  C0DE    TT; 

IF     (^EGa.SBRlISTONIL)     THEN 

BEGIN 

SERL:  =  SEGa),S3RLIST; 

WHILE    SBRLONIL    DO 

BEGIN 

SBR  :=SBRLa).SBR; 

CASE    SBRCD.TAG    OF 

S  ERBRFAK* 

MARKINVOKED (HEAD  MEMODUL E, S ER) ; 

T  ABL  E:  ~ 

FOr'm    MEMORY  (BUILT    CODE, 

HEAD~MSM0DULS,CUR15SM,  SBR, CODE    H, 

CODE    T,  ADDRESS^)  ; 

END:     (*    CASE    *) 

SBRL:=SBRLa).NEXT    SBR; 

END; 

END; 

END; 

END;                                                                                (*    FORM    MEMORY    *) 
^« *j 

BEGIN 

SEG:=CURMEMa.SEGTBLS; 

ACDRESSS:=C;      CODE    H:=NIL;  CODS    T:=NIL; 

FCRH    MEMORY  (BUILT    CODE, HEAD  MEMOHULE,  CUEMEM  ,  S  EG  , 

CUDE    H,CODE    T,ADCRESSS); 

CURMEMa).COCELIST:  =CCDE    H;  ~  ~ 

END;  "  (*    3LD    A    MEMORY    * 

EGIN 

CURMEM:  =  HEAD    KEMODULS; 
WHILE   CURMEM?>NIL    DO 
B  FCT  'NI 

BLD    A    MEMORY  (BUILT    CODE,  HEAD    MEMODULE  ,CURMEM)  ; 

CUaTlEHa).  SEGTBLS  d).  ITJCLUDED  :  =  FlLSE; 

IF    CURMEMa).SEGTBLSa).SBRLIST<>NIL    THEN 

RESET    INCLUDED  (CURMEMa.SEGTBLSa.SBRLIST)  ; 
CURMEM:=CURMEMa)  .NEXT; 
END; 
END;                                                                             (*    BLD    MEMODULECOCE    *) 
(« z= *j 
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(♦ 

FROCEEUPE   0UTPUT_INST3(VAR_0[JTFILE,  MESSAGZFILE 


-*) 


t. 


EMPFILE:TEXT;     BUILT    CODE : CODEPTR ; 
HEAD    a£MODULE:TBLPTR;     PART    NUJi :  INTEGER  ; 

PA'RTITICN:  REAL; 
G00D_SSGi1ENT:  BOOLEAN)  ; 

:tc—  —  _  .—  —  —  — —  __——  —  _  ——'V  ——  —  —  —  -.  —  »_—  __.  —  —  —  _.  __  __  —  —  _—  —  —  —__:4{ 

*    OUTPUT     GOODSEGS:    PRINTS    OUT    GOOD    SEGMENT    INSTRUC    * 


■  -* 


RCCEDURE    CUTPLT   GOOD 
TEXT;     K'EAD_[1 


SEG(VAR    OUTFILE,MESSAGEFILE: 
EMODULSrTBLPTR;    PART    NUM:INTEGER; 

PARTITION:  REAL)  ; 


1*    CUT 
(*         I 

PEOCED 


PUT  MSGF1:  PR 
NSI^UCTIONS  A 
ODULES, 


INTS    OUT    GOOD    SEGMENT    GENERAL      *) 
ND    THE    PROGRAM    LISTING    EY    MEM      * 


URE    OUTPUT    MS 
KEID 


VAB    P,T:TBLPTR; 

STEP    TYEE:  INTEGER; 


GF1 (VAR    0UTFILE,MES3AGEFILE:TEXT; 
MEMODULE: TBLPTR ;    P ARTNUM: INTEGER; 

?ARTITION:REAL)  ; 


;ET  STEP:  SETS 
P'SINTLINE  PR 
PUT    OF    THE   T 


* 

* 

* 

I* 

PROCEDURE    SET    ST3 


THE    KEY    CODS    COUNTER    FOR    THE 
OCEDURE.        USED    FOR    CORRECT    OUT 
1-59    CODE     (3,2,1,0    STEP    INSTR) 


3    STEP 
AAA 
X 
XXX 
XXX 


(.  12,  1  1,10,9,  ) 


STEP 
AA 
XX 
XX 
.8,7,6.; 


71S76  1 

AAA  AAA 

AAA  XX 

(.5,4.)/(.3,2.) 


•    *! 

S  (.  0.  )* 

*1 


0 
AAA 
(.  1.) 


P (T:I3LPrR; 

VAR    STEP    TYPE: INT EGE 


BEGIN 

IF    STEP    TYPE 
IF    TaTKEYCO 
STEP   TYPE 

IF    TS.KEY 
STEP    TY 
ELSE      ~ 
IF    T3.K 

STEP 
ELSE      " 
IF    Ta) 
STE 
EL  SE      " 

STEP  TY?E:=1  ; 
END; 


F)  : 


IN  r. 0,1, 3,5, 8.)^  THEN 
DE  IN  STEP  3  TH^N 
:  =  12 

CODE  IN  STEP  2  THEN 
PE:=8 

EYCODE  IN  STEP  1  THEN 
TYPE:=3 

.KEYCODE  IN  (.71,76.)  THEN 
P  TYPE:=5 


(*  SET^STEP 


-*) 
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*  PRINT  LINE:  PRINTS  OUT  CNE  LINE  OF  CODE  AT  A 

*  TiaE. 
♦ 

PROCEDURE    PRINT    LINE(VAH   OUTFILE :  TEXT ;     VAR    T: 

T3LPTR;     VAR    STE?_TYPE: I NTEGE 

WRITELELS:    WRITES    T3LPTR    LBLS    IN    WHOLE    KEY 
CODE    F0R"1AT    IE.       NNN    NN  AAA 

Procedure  wsitelbls(var  ouTFiLErTEXT;   t.-tblpt 

BEGIN 

WRITE  (OUTFILE,  •  Ml 

WRITE    LEADZERC  (OUTFILE, To).  ADDRESS, 3)  ; 
WRITE10UTFIL5, ^         •); 

WRITE    LEADZERO  (OUTFILE,  To).  KEYCODE  ,  2)  ; 
WRITElOUTFIIE, •  '); 

WRITELBL  (OUTFxLE, To). KEYCODE)  ; 

END;                                                                           (*    WRITELBIS 
(* 


H)  : 

fi)'; 


/4c 

i*     WRITENOMS:    W 

*       TI'5  9    CODE 
ii^ 


PROCEDURE 

BEGIN 

WRITE  (OUTFI 
WRITE  LEADZ 
WRITE70UTFI 
WRITE  LEADZ 
WRITElOUTFI 
WRITE  LEADZ 
WRITEIN(0UT 

END; 


-*' 
WRITE  NUMS  (VAR    OUT  FILE:T  EXT  ;     T:T3LPTR); 


RITES    OUT     A    LINE    OF    DIGITS    OF 
(KEYCODES     ARE    DIGITS    NOT    LELS) 


LS    '  ' )  • 

Er6  (OUTFILE, TcD.  ADDRESS, 5) 

LE,'         •); 

ERG  (OUTFILE, To).  KEYCODE,  2) 

L  E ,  •  '  )  ; 

ERO  (OUTFILE, To).  KEYCODE,  2) 

FILE)  ; 

(*    WRITENU:iS 


El 

'*  — 

lEGI 
PR 
PR 
WR 
PR 
W3 
WR 
PR 
WR 
WR 
PR 
WR 
WR 
P: 
WH 


GIN 

IF    STEP    TYPE 

WRITEI3LS(0 
EL  SE 

WRITENUMSfO 
T:  =Ta).  SEQUENT 
STEP  TiPS:=ST 
D:       " 


IN 

UTF 


(.1,3,4,5,3,12.)     THEN 

iLE,r) 


OTFILE,!) ; 
I AL  • 
£P_TY?E-1  ; 


(*    PRINT_LINE 


N 

INTLN 
INT    M^ 
IT SIN ( 
INT    MS 
ITEIN  ( 

iteln] 

INT  MS 
ITEIN  ( 
ITELN  ( 
INT  MS 
ITETN  ( 
ITELN  ( 
=  HEAD 
ILE  P^ 
BEGIN 
1:  =P 

STEP 
WRIT 
WRIT 
PRIN 


«£G(OUT 
GLINS1  ( 
CDTFILE 
GIINE1  ( 
CDTFILE 
OUTFILE 
GLINE1  ( 
CUTFILE 
OUTFILE 
GLINS1  ( 
CUTFILE 
CUTFILE 
MEMODUL 
>NIL  DO 

S.CODEL 
TY?E:  = 
1LN(0UT 
ELN(OUT 
1    MSGLI 


FILE,:iE3SAGEFILE,BAXINSTR)^; 
OUTFILE, MESS AGE FILE,RTNRGTO?) ; 
.REGCOUNT: 3)  ; 

OUTFILE, MESSAGEFILE,STOINRG)  ; 
,MANRTNREG:3) ; 


UTFILE,MESSAGSFILE,PGM?ARTIS) 
,PARTITION:4:2)  ; 

) ; 

OUTFILE- MESS A GEFILS,?ARTNUMI£) 

,PARTNUM: 1) ; 

)  ;WRITELN  (OUTFILE)  ; 

E; 


1ST; 

FILE);    WRITELN(OUTFILE)  ; 
FILE)  : 

NE1  (OUTFILE, MESSAGEFILE,  MOD N) ; 
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,E,Pal.ME.1NUM:  1)  ; 

lEFILE/ 


WEITEIN(OUTFIL 

FRINTLN    aSG  (OUTFILE, MESS AGEFlLE , CARD  1)  ; 
PRINI1N~!1SG  (0UTFILE,HESSAGEFILE,SIDE1)  ; 
WHILE    TT>NIL    DO 
BEGIN 

IF    Ta).ADDRESS=2U0    THEN 
BEGIN 
WRITSL 
PRINTL 


N(OUTFILE)  :WRITELN(OUTFILE)  ; 

N    flSG(OUT?ILE,MESSAGS?ILE, 

SIDE2)  ; 


END; 

IF    T§. ADDRESS    =    480    THEN 
BEGIN 

WRITEL 

PRINTL 


END; 


END; 
SET    STSP(T 
PRITIT    LINE 
END; 
P:=P2.NEXT; 
END; 


N(OUTFILE)  :  WRITELN  (OUTFILE)  ; 
N    MSG (OUTFILE, MSSSAGEFILE  , 

CARE2); 
PRINTLN    MSG (0 UTFILE, MESS AGEF ILS  , 

SIDS1)  ; 


,STEP    TYPE)  ; 

(OUTFILE, T,STEP_TY?E)  ; 


(*    OOTPUT    MSGF1    *) 
^, 


(♦ 

*  CDTPOT    MSGF2:     OU 

*  SPECIAL    PEOGRA 

:«c 

PEOCEDORS    OOTPUT    MS 


■  -* 
* 


TPUTS    SPECIFIC    PROMPTS     AND 
M    INSTRUCTIONS 


GF2  (VAR   OUTFILE, MESSAGEFILE-.TEXT 
HEAD    MSMODULE-.IBLPTR) 
,F,SEG:TBLPTR;    ~ 
LEAN; 


VAR    SBRL,SEF,SM,? 
IS    SBR£EK:BOO 
BEGIN    " 

P:  =  HEAD    MEMODULE; 

PR I  NIL N~ a SG (OUT  FILE, MESS  A GEFILE, SPECIFICS)  ; 
WHILE    P^>NIL    DO 
BEGIN 

SEG:=Pfl).  SEG 
F:  =  SEGei).F  J 
SBRL  :=SEGaJ. 
WRITELN (OUT 
PRINT    MSGLI 


T3L3; 

UMPIIST; 

SBRLIST; 

FILE)  ; 

NE1  (OUTFILE, MES3AGEFILE, 

MODPROHPTS) 


FILE, Pa),  MEMNUM:  1)  ; 
(OUTFILE, MESSAGEFILE,PFWDJ) ; 
HEN 


WRITELN(OUT 
PRINTLN  MSG 
IF    F=    NIL    T 

PRINTLN    MSG  (OUTFILE, MESS AGEFILE, NONE) 
ELSE 
BEGIN 

WHILE    FONIL    DO 
BEGIN 

PRI NT    MSGLINS1 (OUTFIL E, MESS AGEF IL E , 
~  ASTER ) • 

WRITE  (OUTFILE, F3. MEM    ADDR:1,».'); 
WRITE    LEADZSRO  (OUTFIIE,  (F3. 

JUMP    ADDRTO1*100 
FS.  JUMP"*ADDRT02)  ,  3) 


TELN(OUTFILE)  ; 
^FJUMP; 


WR I 

F:  =  Fa).  NfiXT 
END; 
END; 
PRINTLN    MSG 
IF    SERL=NIL 
PRINTLN    M 


(OUTFILE, MESSAGEFILE,PSBRINV) ; 

THEN 
SG  (OUTFILE, MESSAGEFILE, NONE) 
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ELSE 

BEGIN 

IS    SERBRK:=FRLSE: 

WHILE    SBELONIL    DO 

BEGIN 

SBR  :=SERLa).SER; 

IF    SBRa).TAG    =    SBRBEEAK   THEN 

BEGIN 

SM:=HEAD    MEMODOLE; 

SBR:  =  SBRa5.SBRZ; 

WHILE    SMo). SEGTBLSOSBR    DO 

SK:=SMa>.NEXT; 

IS    SBRBRK:=TRUE; 

PRINT    MSGLINE1  (OUTFILE, 

IIESSAGEFILE, ASTER)  ; 

WEITELN(OUTFILS,SMa).MEJlNUM:  1, 

',000'); 

END; 

SBRI:=SaRLa).  NEXT    SBR; 

EN  D*  ~ 

IF    NOT    IS    S3RBRK    THEN 

PRINTLN'MSG  (OUTFILE,  MES  SAGEFILE,  NCNE) 

END; 

PRINTIN    MSG  (OOTFILS,MESSAGSFILS,PMANRTN)  ; 

IF    P2.RETURNC0DE    NEEDED    THEN 

PRINTLN    MSG  (OUTFILE, MESS AGEFILE, YES) 

ELSE 

PRINTLN    MSG  (OUTFILE^MESSAGEFILS, NONE)  ; 

PRINTLN    MSG  (OUTFILE, MESSAGEFILE,?SEQ)  ; 

IF    SEGSTTABLELIST    <>     NIL    THEN 

BEGIN 

PRINT    MSGLINE1 (OUTFILE , MESS AGEFILE , 

"*  ASTEE)  ; 

HEITELN  (OUTFILS,  Pa>.  NEXia. 

MEMNUM:  1  ,  •  .  000') 

END 

ELSE 

PRINTLN    MSG  (OUTFILE,MESSAGEFILE, NONE)  ; 

P:=P3.NEXT; 

END* 

WRITELN  (CUTFILE)^;  WRITELN  (OUTFILS)  : 

PRINTLN    MSGfOUTFILE, SCRATCH, DATARiAD)  ; 

WRITELNICDTFILS)^;  WRITELN  (OaTFILE)  ; 

PRINTLN    MSG(OUTFILE-SCRATCH-REGMAP)  ; 

HRITELNICUTFILE)  ;  ^SITSLN  (OUTFILE)  ; 

END;                                                                                (=*=    OUTPUT    MSG2    *) 
(♦ = * 

EEGIN 

OUTPUT    MSGF1  (OUTFILE, MESSAGEFILE, HEAD    MEMODULE, 

PART    NUM,PlRTITION)_; 

OUTPUT    MSGf2(0UTFIL£,M£SSAGEFIL^,HEAD    MEMODULS)   ; 

WFITELTI(0UTFILE)_; 
-UTFI 


PBINTLN    MSG  (CUTFI  LS,  MESSAG EFILE ,  ENDLBL)^ ; 


END;  ~  (*    OUTPUT_GOCDSEG    *) 
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*    CUTFQT     EADSiG:     HANDLES    BAD    S2G    INSTRUCTIONS  * 

ifiCCEDURE    OOTPCI    BADSEGfVAR    OUTFILE, MESSAGEFILE , 

~      TEMPFILZ:TEXT;     BUILT    CODE : CODEfTE) 
BEGIN 


WRITELN(OaTFILE);  WRITELN(OUTFILE)  : 

PEINTLN    MSG{OUTFILE,MESSAGEFILE,FAlLINSTR)  ; 

RESET (TEaPFlLE)  ; 

PRINTLN    MSG  (0UTFIIE,TEMPFILE-9)  ; 

WRITELNTOUTFILE)  ;     WRITELN  (OUTFILS)  ; 

PEINTLN    MSG(OUTFILE,MESSAGEFILE,UNSEGCODLBL) 

WRITE  LNlOUTFILE):  WRITELN  (OUTFILE)  ; 

PRINT    CODELISTiOaiFILE, BUILT    CODE); 

WRITErN(OUTFILE)  : 

PEINTLN    MSG  (OUTFILE,  MESSAGEFILE  ,  ENDL3L)  : 


END;                                                                               (*   OUTPUT    BADSEG    *) 
/* r *) 

BEGIN 

IF    NOT    GOOD    SEGMENT    THEN 

OUTPUT    BAI5SEG(0UTFILE,J1ESSAGSFILE,TEKPFILE, 

BUILT  CODE) 
ELSE 

OUTPUT    GOODSEG  (OUTFILE, MESSAGEFILE, HEAD    MEMODULE 

,?AST    NUM. PARTITION)  ; 

END;  (*"OUTPUT    INSTR    *) 

^« *f 

BEGIN 

ELD    MEMODULENOCES(SEGTBL,HSAD    MEMODULE); 
BLD"MEM0DUL2C0DE(BUILT    CODE^HSAD    MEMODULE) ; 
OUITUI   INSTR (OUTFILE, MESSAGEFILE7TEMPFILE, BUILT    CODE, 

HEAD    MEMODULE, PART    NUM , PAETITICN , 
GOOD^SEGMENT)  ; 
END;  ~  (*    INSTRUCTIONS    *) 


2U0 


(*  MAIN     CRIVER  *) 

^  ********♦**********♦♦*:»:*******;«£*********:(£*********«***  *:(t**j 
BEGIN 

iNii  seis(te;ipfili:,ste?   o,step  instep  2, step  3, 

GOCD_SEGMENTrMESSAGEFlLE,TILBL,SB£ilTIVNEST)  T 

DET_LIMIT(BEGC0UNT,LIMIT,Nai1BANKS,?ARr_NUM,  PARTITION)  ; 

INPUT  (SCRATCH, BOIIT_CODE,BUILT_CODE_COUNT) ; 

SETJI3FS  (BUILT^COCE)  ; 

EUILE_SEGTBL  (BailT_CODE , 3EGTBL, LIMIT, BUILT_CODE_COaNT)  ; 

COALESCE  (SEGIBL3.TABLELIST, LIMIT, GOOD    SEGMENT 

,SBRINVNEST)  ; 
WEITELN  (TEflPFILE, 'SS')  ;        (*    CLOSES    TEMPFILE    DIAG    FILE    *) 

INSTRUCIIONS  (0 U TFILE, MESS A GEFILE, TEMPFILE, 

EUILT    CODE, SEGTBLaJ.TABLELIST, PART    NUH  ,  PARTITIO  N, 
GCOD_'SEGMENT)  ; 

REWRITE  (TEMPFILE)  ;  (*    ERASES    TEMPFILE    DIAG    FILE    *) 

END. 

^*************** ***************************** **************) 
(*  END    OF     PROGRAM  *) 

!*********«♦*****♦ *************************** **************! 
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APPENDIX    J 
MESSAGEFILE    FILE — LINKER    HESSAGES 

$81 

*  CCNGEATULATIONS  ,     YOU    HAVE    JUST    COJ??ILED    A    BASIC    PROGRAM 

INTO    A   TI-59    PROGRAM.        IN    SO    DOING    IT    IS    VERY    POSSIBLE 
THAI    YOUR     FR0G5AM    IS    LARGER    THAN    THE    MEMORY    Or    THE 
CALCULATOR.       IF    THIS     IS    THE    CASE    THEN    THE    PROGRAM    HAS 
BEEN    SEGMENTED    AND    PROMPTING    CODS    INSERTED    TO    GUIDE 
YOUR    CALCULATOR    PROGRAM    DURING    ITS    EXECUTION.     THE    RE- 
MAINDER  OF    THIS    OUTPUT    CONSISTS    OF    TI-59    CODE    LISTINGS 
AND    OTHER     INFORMATION     TO    AID    YOU    IN    YOUR    PROGRAM 
EXECUTION. 

*  TKE    FCLLCWING    DEFINITIONS    ARE    PROVIDED    AS    AN    AID    TO 

READING    THE    PROGRAM    LISTING    FILE. 

*    DEFINITIONS: 

*  MODULE:     A    MODULE     IS    DEFINED    TO    3E    ALL    THE    MEMORY 

DEDICATEE    TO    PROGRAM    STEPS.       THE    SIZE    IS    VARI- 
ABLE   AND    IS    DEPENDENT    ON    THE    REGISTER    REQUIRE- 
MENT.       VALUES     RANGE    FROM    0    TO    239,    479    OR    719 
DEPENDING   ON    THE    AMOUNT    OF    REGISTERS    USED    BY 
THE    PROGRAM. 

*  CARD:    A    CARD    IS     DEFINED    TO    BE    ONE    MAGNETIC    CARD. 

A    CARD     HCLDS    4  30    PROGRAM    STEPS.       THESE    STEPS 
ARE    NOT    CONTIGUOUS    BUT    ARE    ARRANGED    ON    THE    TWO 
SIDES    OF    THE    CARD, 

*  SIDE:     A    SICE    IS    ONE    HALF    OF    A    CARD.    IT    CONTAINS 

UP    TO    240    STEPS.        WHEN    ONE    SIDE    OF    A    CARD     IS 
READ    BY    THE    CALCULATOR    240    PROGRAM    STEPS    ARE 
FILLED     IN    MEMORY.       THESE    BLOCKS    OF    240    STEPS 
ARE    REFERED    TO     AS    "BANKS"    IN    THE    MANUFACTURER 
LITERATURE.       WHEN    LOADING    A    CARD    YOU     MILL    LOAD 
ONLY    BANK    NUMBER     1    AND/OR    2    FOR    PROGRAM    STEPS. 

*  PARTITION:    THIS    IS    DEFINED    TO    BE    THE    CURRENT 

SETTING    OF    CALCULATOR    MEMORY    AS    APPLIED    TO    THE 
AMOUNT    CF    MEMORY    DEDICATED    TO    STORAGE    REGISTERS 
AND   THE    AMOUNT     DEDICATED    TO    PROGRAM     STEPS. 
WE     WILL    EE    DEALING    WITH     3    PARTITIONS.     THESE 
ARE: 

3  719.29 

a  479.59 

5  23  9.6  9 

FORMAT:  X  YYY.ZZ 

WHERE    X    STANDS    FOR    PARTITION    NUMBER 

YYY    STANDS    FOR    PROGRAM    STEPS     (0-YYY) 
ZZ    STANDS    FOR    REGISTERS     (0-ZZ)  . 
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TI-59    PROGRAJf    ^^STI  NG_BY_^ODULE/CARD/SIDE^_ 

*  THE    FOLLOWING    IS    YCOR    PROGRAM    LISTING.     THE    PROGRAM     IS 

LISTEL    ACCORDING   TO    MODULE    NUMBER    AND    ITS    ASSOCIATED 
CARES    AND    CARD    SIDES. 

*  REFER    TO   THE    TI-59    PROGRAMMER'S    GUIDE    ON    HOW    TO    INPUT    A 

PROGRAM   AND    WRITE    IT    TO    MAGNETIC    CARDS. 


CAUTICN 

IS    SET   BE 
MAGNETIC 


ENSURE    THAT    THE    CORRECT    CALCULATOR    PARTITION 
FORE     INPUTTING    A    PROGRAM    AND    WRITING    TO 
CARDS. 


*    CAUTICN:    ENSURE     THAT    YOU    DO    NOT    CONFUSE    BANK    NUMBERS 

WITH    CARD/MODOLE    OR    SIDE    NUMBERS.        THE    NUMBERS    WHICH 
REFER    TO    THE    LISTING     ARE    AKIN    TO    A    VIRTUAL    ADDRESS 
AND    DC    NOT    REPRESENT    THE    ACTUAL    BANK    NUMBER. 
IF    IN    DOUBT,     REMEMBER    TO    USE    THE    TABLE    BELOW    TO 
TRANSLATE    VIRTUAL    TO    ACTUAL    BANK    NUMBERS. 

VIRTUAL    BANK  ACTUAL    BANK 

«CDULE    # 

CARD1 

SIDE1 BANK1 

MCDDLS     # 

CARC1 

SIDE2 BANK2 

MODULE    # 

CARD2 

SIDE1    BANK3 

_____________ 


$81 
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TI-59    PROGFAM    SPECIFIC    INSTRUCTIONS: 


*  THE    FCLLOWING    INFORMATION    WILL   TELL    YOU    HOW    TO    HUN 

YCUe    FROG  RAM. 

*  YCU    MOST    ENTER    YOUR    PROGRAM    MANUALLY    INTO    THE    CALCULATOR 

AND    WRITS    THE     rRCGRAM    TO    MAGNETIC    CARDS.       THIS    STEP 
ONLY    NEEDS    TO     EE    ACCOMPLISHED    ONCE.        AFTER    THAT,     THE 
PROGRAM    IS    ENTERED    USING    THE    MAGNETIC    CARD    FACILITY 
OF    THE   CALCULATOR.       SEE    THE    MANUFACTURER'S    LITERATURE 
ON    ENTERING    A    PROGRAM     AND    WRITTING    IT    TO    MAGNETIC 
CARDS-    YOU    WILL    NEED    TO    PARTITION    MEMORY. 

*  HOW    TC    EARTITION    THE    MEMORY 

*  KEY    SEQUENCE: 

X 

2ND 

OP 

17 

*  X    IS   THE    PARTITION     NUMBER    GIVEN    IN    THE    LISTING    OF 

YCUR    PROGRAM. 

*  WHEN    TO    PARTITION    THE    MEMORY 

*  CNCE    3EF0RE     BEADING    IN    CARDS. 

*  CNCE    BEFORE     MANUALLY    ENTERING    PROGRAM    IN    ORDER    TO 

WRITS    TO    CARDS. 

*  HOW    TC    START    AND    RUN    YOUR    PROGRAM 

*  TURN   ON     CALCULATOR 

*  PARTITION    CALCULATOR 

*  LCAC    ALL    MODULE    1    CARDS 

*  OPTIONAL    STSE:    IF    YOU    SELECTED    THE    MANUAL    DATA     INPUT 

DENOTED    IN    YOUR    BASIC    PROGRAM    BY    USING    THE    "DATA" 
AND    "READ"     STATEMENTS    THEN     YOU    MUST    MANUALLY    ENTER 
YCUR     DATA     INTO    THE    CALCULATOR    MEMORY.        THIS    IS 
DCNE     BY    REFERRING    TO    "INPUT    DATA    TO    READ"    TABLE 
PROVIDED     AT    THE    END    OF    THIS    LISTING.       MANUALLY 
ENTER     THE    GIVEN    DATA    INTO    THE    REGISTERS    USING    THE 
FOLLOWING    KEYSTROKES: 

DATA 

STO 

XX 

WHERE    XX    IS    THE    DESIRED    REGISTER    NUMBER. 

*  INITIALIZE    THE    MANUAL    SBR    RETURN    CONTROL    STACK    WITH 

THE    FOLLOWING    KEYSTROKES: 

XX 

STO 

08 

WHERE    XX    IS    THE    MANUAL    RETURN    REGISTER    STACK    TOP. 
(THIS     IS    GIVEN    WITH    THE    PROGRAM    LISTING    NEAR    THE 
PARTITION    INFORMATION.) 

*  PRESS    "A"    TO    START. 

*  FCLLCW    DISPLAY    PROMPTS. 
*    DEFINITIONS: 

*    RUN-TIME    PROMPTS:       ARE    DEFINED    TO    BE    CALCULATOR 
PROMPTS    DISPLAYED    IN    THE    CALCULATOR    WINDOW 
IN    THE    FORM    OF    A    4    DIGIT    DECIMAL,    2    DIGIT 
INTEGER    OR    A    1     DIGIT    INTEGER.     EACH    PROMPT 
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IS    OUTLINED    BELOW: 

*  a    DIGIT    DECIMAL 

*  FORMAT:     X.YYY 

*  X  STANDS  FOR  MODULE  NUMBER  (1-9) 

*  YYY  STANDS  FOR  STARTING  ADDRESS 

*  ACTIONS: 

*  LOAD    ALL    MODULE    X    CARDS. 

*  PRESS    FOLLOWING    KEY    SEQUENCE    TO 
INTIALIZS: 

RCL 

00 

GTO 

Y 

Y 

Y 

*  ERSSS  R/S  TO  CONTINUE  IN  NEW  MOD. 

*  2  DIGIT  INTEGER 

*  FORMAT:  XX  WHERE  XX  STANDS  FOR  A 

REGISTER  NUMBER. 

*  ACTIONS: 

*  LOOK  UP  IN  REGISTER  MAP  PROVIDED 

THE  BASIC  NAME  THAT  CORRESPONDS 
TO  THE  XX  NUMBER. 

*  ENTER  THE  BASIC  VARIABLE  VALUE. 

*  PRESS  -R/S     TO  CONTINUE  WITH  THE 

ENTERED  VALUE, 

*  1     DIGIT    INTEGER 

*  FORMAT:     X    WHERE    IS    A    MODULE    NUMBER. 

*  ACTIONS: 

*  LOAD  ALL  MODULE  X  CARDS. 

*  PRESS  FOLLOWING  SEQUENCE  TO 

INITIALIZE: 

RCL 

00 

INV 

cop 

*  PRESS    R/S    TO    CONTINUE    IN    NEW    MOD. 

*  PAUSE    IN    DISPLAY 

*  AN    UNFORMATTED    DIGIT    FLASHES    IN    THE 

DISPLAY    BEFORE    BEING    DISPLAYED. 
THIS    IS    AN    ANSWER    THAT    CORRESPONDS 
TO    A    REQUESTED    ANSWER    IN    THE    BASIC 
PROGRAM    USING    THE    BASIC    PRINT 
STATEMENT.        THESE    ANSWERS    OCCUR    IN 
THE    SAME    ORDER    AS    THEY    WERE 
REQUESTED    IN    THE    BASIC    PROGRAM. 

*  ACTIONS:     NOTE     ANSWER    AND    PRESS    R/S. 

*  888    IN    DISPLAY 

*  SPECIFIC    PROMPT    THAT    INDICATES    THAI 

THE    PROGRAM    HAS    STOPPED    EXECUTION. 

*  ACTIONS:     IF    DESIRED    FIND    ANSWERS    IN 

THE    CALCULATOR    MEMORY    USING    THE 
"TI-59    REGISTER    TO    NAME    MAPPING" 
AT    THE    END    OF    THE    INSTRUCTIONS. 

*    EXPECTED    CONTROL    FLOW    PROMPTS    BY    MODULE    FOLLOW: 
$82 
$83 

END    EAX59    SEGMENTATION/INSTRUCTION:     VERSION_T^0_ 

iii 

$84 _ 

BAX59     PROGRAM    INSTRUCTIONS:     VERSION    T.  0 
****    3EGMEOTER    FAILURE    ************    PROGRAM    FAILURE**** 

BAX59    DIAGNOSTICS    FOLLOW: 


*    SSGMENICR    FAILURES: 
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*  THE    S5GMENT0E    COULD    NOT    SEGMENT    THE    COMPILED    PEOGHAM    lU 

A    SATISFACTORY    MANNER.        FGSSIBLS    REASONS    FOR    THE 
FAIIUEE    ARE    GIVEN    BELOW. 

*  THERE    ABE    TWO    TYPES    OF    SEGMENT    BREAKS: 

*  A    JUMP     BREAK    OCCURS    THROUGH    AN    ABSOLUTE    JUMP    TO    SOME 

PORTION    OF    CODS    IN    ANOTHER    MODULE. 

*  A    SER    BREAK    OCCURS     THROUGH    A    SBR    INVOKE    TO    A    SBR 

WHOSE    DEFINITION     RESIDES    IN    ANOTHER    MODULE. 

*  SEGMENT    FAILURE    OCCURS     WHEN    ONE    OF    THE    ABOVE    BREAKS 

OCCURS    INSIDE    A    BACKWARD    JUMPING    LOOP    THAT    COVERS 
MORE    PROGRAM     STEPS    THAN    IS    AVAILABLE    IN    THE    CALCULATOR 
MEMORY.       SEGMENTATION    IS    NOT    ALLOWED    IN    A    LOOP    AS    IT 
IS    IMPRACTICAL    TO    KEEP    READING    IN    CARDS    EVERY    TIME    THE 
THE    PROGRAM    LOOPS    BACK    OVER    A    BREAK     (IMAGINE    A    1     TO 
1000    LOOP    OVER    SUCH    A    BREAK).        TO    AVOID    SUCH    A    PROBLEM 
YOU    MUST    SIRUCTURE    YOUR    BASlC    PROGRAM    TO    AVOID    LARGE 
BACKWARD-JUMPING    LOOPS. 

*  PROGRAM    FAILURES:        POSSIBLE    PROGRAM    FAILURE    OCCURS    WHEN 

SUERCQTINE    CALL^    ARE    NESTED    GREATER    THAN    SIX    DEEP. 

THE    CALCULATOR    ONLY    HAS     SIX    SUBROUTINE    RETURN    REGISTERS. 

*  BELOW    ABE    DIAGNOSTICS    INDICATING    THE    SIZES    OF    THE    LOOPS 

IN    TI-59    PROGRAM    STEPS     AND    IHE    TYPES    OF    BREAKS    OCCURRING 
WITHIN    THESE    LOOPS.       DIAGNOSTICS    ARE    GIVEN    IN    ABSOLUTE 
CODE.       SBR     NESTING    LEVEL    DIAGNOSTICS    ARE    GIVEN    FOR 
INVOKED    ROUTINE    DEFINITION. 

$84 

$5 

EAX59  VERSION  1.0 
UNSEGMENTED  ABSOLUTE  COMPILED  TI59  CODE  FOLLOWS 


$5 
$6 

$6 
$7 

$7 
$8 

$8 
$9 


*  SEQUENTIAL    CONTINUATION:    4    DIGIT    REAL    CODE. 

*  MANUAL    BETURN    FROM    A    SUBROUTINE:     1    DIGIT    CODE, 

*  FORWARD    JUMP    CONTINUATION:    4    DIGIT    REAL    CODE. 

*  SUBROUTINE    INVOKE:     4   DIGIT    REAL    CODE. 


$9 

S99 

0  12  3 

4  5  6  7 

8  9  2ND    E*  A 

E  C  D  E 

2ND  A'  2ND    B«  2ND   C«  2ND    D« 

2ND  CIR  INV  LNX  CE 

CLR  2ND    INV  2ND    LOG  2ND    CP 

2ND  TAN  X<=>T  X**2  SQRT  (X) 

1/X  2ND    PGM  2ND    ?=>R  2ND    SIN 

2ND  CCS  2ND    IND  STO  RCL 

SUM  Y**X  2ND   CMS  2ND    EXC 

2ND  PBD  I X|  EE  ( 

/  2ND    SNG  2ND    FIX 


2ND 


INT  2ND    DEG  GTO  2ND    PGM    2ND    IND 


2ND    EXC    2KD    IND2ND  PRO    2ND  INDX  2ND  PAUSE 

2ND    X=T                      2ND  NOP  2ND    OP  2ND  RAD 

SBR                                  STO  2ND    IND  RCL    2ND    IND  SUM  2ND    IND 

2ND  LEL  2ND    X>=T  2ND  SUMMATION 

X-BAR                             2ND  GRAD  RST  GTO  2ND    IND 

2ND    OP    2ND    IND    +  2ND    STFLG  2ND  IFFLG 

2ND    D.MS                    2ND  PI  2ND    LIST  R/S 

INV    SER                      .  •«•/- 

2ND    WRITE                 2ND  DSZ  2ND    ADV  2ND  PRT 
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*    EXPECT3D    EBOMPTS    FOR    MODULE    #    $ 
*    NONE 


$99 
$100 

$100 
3101 

$101 
$102 

*  $ 
$102 

$103 

*  YES 
$103 

$104 

*  MANUAL    RETURN    REGISTER    TOP    IS    $ 
$10U 

$105 

STORE  IN  REGISTER:  $ 
$105 
$106 

*  PROGRAM  PARTITION  IS  $ 
|106 

$107 

*  PARTIIICN  NUMBER  IS  $ 
$107 

$108 

♦MODULE  #  $ 
$108 
$109 


$109 
$110 

$110 
$111 

$111 
$112 

$112 


CARE  #1 

CARE  #2 

SIDE  #1 

SIDE  #2 
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APPENDIX    K 
ARTILLEBI    TEST    PHOGRAM    SOURCE    CODE 


00005  OPTION   0    5 

00010  REM    ♦*****«***♦*******:*!**********************♦******** 

00011  REM 

00012  REM  BAX59    TEST    PROGRAM    NUMBERI 

00014  REM 

00015  REM    *THIS     TEST    PROGRAM    IS    AN    ADAPTATION    OF    THE    PROGRAM 

00016  HEM  DSED    BY    THE    FIELD    ARTILLERY    IN    THE    COMPUTATION 

00017  REM  OF    FIRING    DATA     FOR    THEIR    GUNS.        THE    ORIGINAL 

00018  REM  PR0GBA3    WAS    WRITTEN    FOR    THE    TI-59    CALCULATOR. 

00019  REM  THIS    TESI    WAS   CHOSEN    NOT    ONLY    TO    EVALUATE    THE 

00020  REM  THE    COMPILER    ANE    SEGMENTOR    BUT    TO    COMPARE    THE 

00022  REM  THE    RELATIVE    EFFICIENCY    OF    THE    TRANSLATED    WEASIC 

00023  REM  PROGRAM     WITH    THAT    OF    A    HUMAN    CODED    PROGRAM.     BOTH 
0002a  REM  PROGBAMS    ACCOMPLISH    THE    SAME    TASK. 

00025  REM 

00026  REM  ************************************************** 

00027  REM 

00050  REM    ♦♦♦*******♦***    DATA    SECTION    M109     ***************** 

00055  REM 

00100  REM  *CHARGE  CONSTANTS   M109A1  SELF  PROPELLED 

00120  EEM  ^CHARGE  U 

00130  DATA  -.0133670-21.2691,-105.7 

00140  DATA  -.0G001499,. 06630,-. 41 

00150  DAIA  .  77, .01314 ,,00001720 

00160  REM  *CHARGE  5 

00170  DATA  -.0149331.24.3439,64.7 

00180  DATA  -.0CG01420-. 07069, .06 

00190  DATA  1 .26, .01508, .00001678 

00200  REM  *CHARGE    7 

00210  DAIA  -.0  173835.29.8741,2255.2 

00220  DATA  -. OCOO 1 668 , . 0 8487- 3 . 29 

00230  DATA  1 . 3  , . 0271 3  ,  .00  CO l506 

00240  BEM  *CHARGE    3 

00250  DATA  -.0182137.32.3731,4107.4 

00260  DATA  -. 0 0001 668 , . 39272, 5 . 74 

00270  DATA  1 . 36  ,. 0289 1 , , 00001 4 1 0 

002  8  0  REM 

00290  REM  *M109     MAX    RANGE    OF    CURVE    FIT     BY    CHARGE 

00300  DATA  57  00,7000,1080  0,1760  0 

00310  REM 

00320  REM  *M109     HIGH    ANGLE    CROSS    OVER    POINT    MILS 

00330  DATA  715 

00340  REM 

00350  REM  *BATTSRY   DATA/    BTRYE, BT RYN , BTRY A, BTRYL 

00360  DATA  0,0,0,800 

00370  REM 

00380  REM  *REGISTBATION    DATA/RNGK , DFCOR 

00390  DATA  1.0,0 

00400  REM 

00410  REM  *TARGET    DATA/CBSERVOR    LOC ATION ( DU AL    MEANING) 

00420  DATA  4000,4000,10 

00430  REM 

00440  REM  *OESERVCR    DATA 

00450  DATA  4000,-400,10 

00460  REM 

00470  REM  *SPECIFIC    CORRECTION    FACTORS    DATA 

00471  DATA  1018.5924,16  00,3200 

00472  REM 

00473  REM 
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00480  REM    ♦*********♦***«    VARIABLE    READ    INITI ALIZ  ATIG!!    ***** 

00490  REM 

00495  RSa  *M109    EALLISTIC    CONSTANTS    3Y    CHARGE 

00500  REM  *CHABGE    4 

00510  READ  A24,A14,A04 

00520  REAC  C24,C14,C04 

00530  READ  B04,E14,B24 

00540  REM  *CHARGE    5 

00550  READ  A25,A15,A05 

00560  READ  C25,C15,C05 

00570  READ  B05,E15,325 

00580  REM  *CHARGE    7 

00590  READ  A27,A17,A07 

00600  READ  C27,C17,C07 

00610  READ  B07,E17,B27 

00620  REM  *CHARGE    8 

00630  READ  A28,A18,A08 

00640  READ  C28,C18,CC8 

00650  READ  B06,E13,B28 

00660  REM 

00670  REM  *M109    MAX    RANGE    OF    CURVE    FIT    VARIABLES 

00680  READ  CHG4 MAX, CHG 5MAX, CHG7M AX, CHG8M AX 

00690  REM 

00700  REM  *ai09     HIGH    ANGLE    CROSS    OVER    VARIABLE 

00710  READ  HACRCSS 

00720  REM 

00730  REM  *BATTSB1J    VARIABLES 

00740  REAE  5TR YE, ETRYN ,BTRYA ,3TR YL 

00750  REM 

00760  REM  *REGISTRATION    VARIABLES 

00770  REAE  RGK,CFCOR 

00780  REM 

00790  REM  *TARGEI    VARIABLES    OR   OBSSRVOR    INIT    LOCATION 

00800  READ  GRIDE, GRIDN ,GRIDA 

00810  REM 

00820  REM  *OBSERVOR  VARIABLES 

00830  READ  CT , L AIDE V,R GDEV 

00840  REM 

00845  REM  *S?ECIFIC    CORRECTION   FACTORS    VARIABLES 

00860  READ  MILE AD,ROTCOR, REFDEF 

00870  REM 

00875  REM  ************************************************* 

00880  REM  ♦********:*«**    MAIN    PROGRAM     BEGINS    *************** 

00900  REM  START 

00910  REM  *CCMPaTE    TARGET    GRID 

00920  GOSOE    1050 

00940  REM  *COMPaiE   GUN     RANGE, AZI MOT H 

00950  GOSUE    1130 

00970  REM  *COMPUIE   FIRING    DATA 

00980  GOSOE    1240 

C0990  REM 

01000  STOP 

01010  REM  *************    MAIN    STOP    ************************ 

01020  REM 

01022  REM 

01030  REM  *************    SUBROUTINES    ********************** 

01035  REM 

01040  REM  ************************************************ 

01050  REM  ***    COMPOTE    NEW    TARGET    GRID    FROM    SHIFTS     ******** 

01051  REM  ************************************************ 

01055  REM  START 

01060  GRIDN    =    GRIDN+(RGDEV*SIN  (  (ROTCOR-OT)  /  S 

01070  &  MILRAD) -LATD£V*COS ((ROTCOR-OT) /KILRAD) ) 

01080  GRIDE    =    GRIDE> fRGDEV*CCS  (  (ROTCOR-OT)/  & 

01090  S  MILRAD)  +LATDEV*SIN  (  (ROTCOR-OT)  /MILRAD)  ) 

01100  RETURN 

01110  REM    ************************************************** 

01115  REM 

01120  REM    ************************************************** 
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01130 
01131 
01135 
01140 
011U5 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01223 
01230 
01240 
01245 
01250 
01260 
01270 
01275 
01280 
01290 
01295 
01300 
01310 
01315 
01320 
01330 
01335 
01340 
01350 
01360 
01370 
01380 
01390 
01395 
01400 
01405 
01410 
01420 
01430 
01435 
01440 
01450 
01460 
01470 
01480 
01481 
01490 
Q1500 
01510 
01515 
01516 
01518 


3EM 
REM 
REM 


****    COMPOTE    GUN 

START 

TGTRG    =    SQ 


RANGE,    AZIMQTH    ****************** 

*******:Jt:(c:«e*>)c:tt*Jic:«:«*«*jOt**********i(c* 


R  (  (G3IDE-BTRYE)  **2+  S 

(GRIDN-BTEYN)**2) 
IN  ((GRIDN-BTRYN)  /TGTRG)  *MILRAD 
=  3TRYE 
RCTCOR  -  TGTAZ 


REM 
REM 
REM 
REM 
REM 
REM 


TGTAZ   =    AS 
IF    GRIDS   > 

TGTAZ 
ELSE 

TGTAZ    =    3*RCTC0R    +    TGTAZ 
ENDIF 
RETURN 

*:ic**;4c***:«c:4e****  4c**  ******************  *************** 


***************** 

♦***    FIRING    DATA 

4c:4i:4c4c  ************* 

START 
IF    TGTRG    <= 
INVCKE=    F 

ELSEIF   TGTR 
INVCKE=    F 

ELSEIF   TGTR 
INVCKE=    F 

ELSEIF   TGTR 
INVOKE=    F 


COMPUTATIO 

CHG4MAX 
N_FD(A24, A 


G    <=    CHG5M 
N_FD(A25, A 


G    <=    CHG7M„.. 
N_FD(A27,A17,A07 


:»:«;4c:«c****4i*3!c*:4t***  ******* 

N    ROUTINE    ************* 

14,A04,C24,C14,C04 ,  5 
B24,E14,B04) 

X 

5, A05,C25,C15,C05,  & 
B25,£15,B05) 

X 


AX 
1" 


G    <=    CHG8M 
N_FD(A28, A 


;15,C05,  <> 

B25,£15,B05) 

lAX 

l17,A07,C27,C17,C07,  S 
327,E17,B07) 

I  AX 

i13,A08,C28,C18,C08,  S 
32a,c18,BC8) 


REM 
REM 
REM 
REM 
REM 
REM 


ELSE 

PRINT    TGTRG 
ENDIF 

RETURN 

*4<  4c^  *  :4c  :«i4c  ***************************  **4(*  *********** 


♦  *** 

*** 
**** 


:4c4E:(c*:tc4c:4t**:4c*** 

FIRING    DATA    C 

4c************ 

START 

DEF     FN    FD(A 
EI    =     (-A 

IF    EL    > 
PRINT 

ELSE 
PRINT   C 
FEINT    R 


OMP0TATI3N    FUNCTION    ************* 

:»^:4c***  :4c*  ********  ***************** 

2,A1,A0.C2,C1,C0,B2,B1,B0) 
1+SQR  (A1**2-  (4*A2*  (A0-IGT3G*HGK)  5 

)))/(2*A^) 
HACROSS 
TGTAZ, TGTRG 

0+C  1*EL+C2*EL**2 

EFDSF+DFCOR+ (BTRYL-TGTAZ)  ♦  S 

(B0+Bl*EL+B2*EL**2j 


REM 
REM 

REM 


«*** 
♦  *** 


PRINT    EI+ ( (GRIDA-BTRYA+20)/TGTRG*10  00 
ENDIF 
FNENC 

:«£♦♦♦  :0c******** 

END    EAX59    T 

********«:»*** 


«*:«c:4c4<**************************** 

EST    PROGRAM    NUMBER    ONE 

:4i:4c*:4c*4:*************************** 
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APPENDIX    L 
TEST    PRCGBAa   LISTING    FILE    (LISTF) 


WBASIC    PRCGRSM    LISTING 


00005  CFTICN   0    5 

00010  HEM    ************************************************** 

00011  REM 

00012  REM  BAX59    TEST    PROGRAM    NUMBER1 
OOOIU  REM 

00015  REM    *THIS    TEST    ESOGRAM    IS    AN    ADAPTATION    OF    THE    PROGRAM 

00016  REM  USED    BY    THE    FIELD    ARTILLERY    IN    THE    COMPUTATION 

00017  REM  OF    FIRING    DATA     FOR    THEIR    GUNS.       THE    ORIGINAL 

00018  REM  PROGRAM     «AS    WRITTEN    FOR    THE    TI-59    CALCULATOR. 

00019  REM  THIS    TEST    WAS    CHOSEN    TO    NOT    ONLY    EVALUATE    THE 

00020  REM  THE    COMPILER    AND    SEGMENTOR    BUT    TO    COMPARE    THE 

00022  REM  THE    RELAIIVE    EFFICIENCY    OF    THE    TRANSLATED    WEASIC 

00023  REM  PROGRAM     ^ilTH    THAT    OF    A    HUMAN    CODED    PROGRAM.     BOTH 

00024  REM  PROGRAMS    ACCOMPLISH    THE    SAME    TASK. 

00025  REM 

00026  REM    *****************  **************************5)t*4«**** 

000  2  7  REM 

00050  REM    **************    DATA    SECTION    ['1109    ***************** 

00055  REM 

00100  REM  *CHARGE    CONSTANTS       M109A1     SELF    PROPELLED 

00120  REM  *CHARGE    4 

00130  DATA  -.0133670.21.2691,-105,7 

001U0  DATA  -.00001499 ,.06630,-. 41 

00150  DATA  .77. .01314, .00001720 

00160  REM  *CHA5gE    5 

00170  DATA  -.0149331.24.3439,64.7 

00180  DAIA  -.00C01420 ..07069, .06 

00190  DATA  1.26, .01508, .00001678 

00200  REM  *CHARGE    7 

00210  DAIA  -.0  173835,29.8741,2255.2 

00220  DAIA  -.00001668 ,.08487,3.  29 

00230  DATA  1 . 3  .  .02 71 3 , . 00  CO  1306 

00240  REM  *CHARGE    8 

00250  DATA  -.0  182137,32.3731,4  107.4 

00260  DATA  - . 0 000 1 66 3 , . 09272 ,5 . 74 

00270  DATA  1 . 3 6,. 0289 1 , . 00001 4 1 0 

00280  REM 

00290  REM  *M109    MAX    RANGE    OF    CURVE    FIT    BY    CHARGE 

00300  DAIA  5700,7000,10800,17600 

00310  REM 

00320  REM  *M109     HIGH    ANGLE    CROSS    OVER    POINT    MILS 

00330  DATA  715 

00340  REM 

00350  REM  *BATTSRI    DATA/    BTR YS,BTRYN, BTRY A, BTRYL 

0036  0  DATA  0,0,0,80  0 

003  7  0  REM 

00380  REM  *REGISTRATION    DATA/RNGK , DFCOR 

00390  DATA  1.0,0 

00400  REK 

00410  REM  *TARGET    DATA/CBSERVOR    LOC ATION ( CU AL    MEANING) 

004  2  0  DATA  40  00,400  0,10 
00430  REM 

00440  REM  *0E3ERV0R    DATA 

00450  DATA  4000,-400,10 


00460    REM 


25  1 


00470  REM  *SPECIFIC    CORRECTION   FACTORS    DATA 

00471  DATA  1013.5924,16  00,3200 

00472  REM 

00473  REM 

00480  REM    ««***♦*********    VARIABLE    READ    INITIALIZATION    ***** 

00490  REM 

00495  REM  *M109     EALLISTIC    CONSTANTS    BY    CHARGE 

00500  REM  *CHARGE    4 

00510  READ  A24,A14,A04 

00520  REAL  C24,C14,C04 

00530  READ  B04,E14,B24 

00540  REM  *CHARGE    5 

00550  READ  A25,A15,A05 

00560  REAC  C25,C15,CC5 

00570  READ  B05,B15,B25 

00580  REM  *CKARGE    7 

00590  REAC  A27,A17,A07 

00600  READ  C27,C17,CG7 

00610  REAC  B07,E17,B27 

00620  REM  *CHARGE    8 

00630  REAC  A2e,A18,-A08 

00640  REAC  C2fi,C18,CC3 

00650  REAC  B06,B18,B28 

00660  REM 

00670  REM  *M109     MAX    RANGE    OF    CURVE    FIT    VARIABLES 

00630  REAC  CHG4  MAX,  CHG  5MAX,CH37M  AX,  CHG8:^i  AX 

00690  REM 

00700  REM  *M109     HIGH    ANGLE    CROSS    OVER    VARIABLE 

00710  REAL  HACRCSS 

00720  REM 

00730  REM  *BATTERI   VARIABLES 

00740  REAC  ETR YE, ETRYN , BTRYA ,BTR YL 

00750  REM 

00760  REM  *REGISTRATION    VARIABLES 

00770  REAC  RGK,CFCOR 

00780  REM 

00790  REM  *TARGEI    VARIABLES    OR    OBSEHVOR    INIT    LOCATION 

00800  RE^C  GRIDE, GRIDN,GRIDA 

00810  REM 

00820  REM  *OESEaV0R    VARIABLES 

00830  REAL  OT , LATDE V, RGDEV 

00840  REM 

00845  REM  *SPECIFIC    CORRECTION    FACTORS    VARIABLES 

00860  REAC  MILR AC,ROTCOR, REFDEF 

00870  REM 

00875  REM  «******:******«**  ♦****:«c«*:«c:^*:#***«:«i********«**:«c**** 

00880  REM  ****♦«**♦««**    MAIN    PROGRAM    BEGINS     *************** 

00900  REM  START 

00910  REM  *COMPrJIE    TARGET    GRID 

00920  GOSUE    1050 

00940  REM  *COMPUTE   GUN    RANGE , AZIMUT H 

C0950  GOSUE    1 130 

C0970  REM  *COMPUTS   FIRING    DATA 

00980  GOSUE    1240 

C0990  REM 

01000  STOP 

01010  REM  :»********«♦**    MAIN    STOP    ************************ 

01020  REM 

01022  REM 

01030  REM  ♦****♦***♦***    SUBROUTINES    ********************** 

01035  REM 

01040  REM  ************************************************ 

01050  REM  ***    COMPUTE    NEW    TARGET    GRID    FROM    SHIFTS    ******** 

01051  R^M  ************************************************ 
01055  REM  START 

01060  GRIDN    =    GRIDN  +  rRGDEV*SIN(  (ROTCOR-OT) /  S 

01070  S  MILRAD) -LATDEV*COS (iR0TCOR-OT)/MILRAC) ) 

01080  GRICE   =    GRIDE+rRGDEV*COS  (  (ROTCOR-OT)/  & 

01090  S  MILRAD) +LATDEV*SIN ( (ROTCOR-OT) /MILRAC) ) 
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01100  RETURN 

01110  HEM  *****************  J******************************  **:* 

01115  REM 

01120  REM  ************************************************** 

01130  REM  ****  COMPOIE  GUN  RANGE,  AZIMUTH  ****************** 

01131  REM  ************************************************** 
01135  REM       START 

01140  TGTRG  =  SQ R  (  (GRIDE- BTR YE) **2+  S 

011U5  5  (GRIDN-BTRYN)**2) 

01150  TGTAZ   =    ASIN  (  (GRIDN-BTRYN) /TGTRG) *MILRAD 

01160  IF    GRIDE    >=    BTRYE 

01170  TGTAZ    =    ROTCOR    -    TGTAZ 

0118  0  'T  "^  F 

01190  "    TGTAZ    =    3*RCTC0R    +    TGTAZ 

01200  ENDIF 

01210  RETURN 

01220  REM    ************************************************** 

01223  REM 

01230  REM    ************************************************** 

01240  REM    ****    FIRING    DATA    COMPUTATION    ROUTINE    ************* 

01245  REM    ************************************************** 

01250  REM  START 

01260  IF    TGTRG    <=    CHG4HAX 

01270  INVCKE=    FN    FD ( A24 , A  14 , A04 ,C24 , Cl 4 ,C04 ,         S 

01275  &  "*  B24,E14,B04) 

01230  ELSEIF    TGTRG    <=    CHG5MAX 

01290  INVOKE=    FN    FD { A25 , A  15 , A05 ,C25 ,C 1 5,C05  ,         S 

01295  S  "  325, £15, 305) 

01300  ELSEIF    TGTRG    <=    CHG7MAX 

01310  INVOKE=    FN    FD ( A27, A  17 , A07 ,C27,C 1 7,C07  ,         S 

01315  S  "  B27,E17,B07) 

01320  ELSEIF    TGTRG    <=    CHG8MAX 

01330  INVCKE=    FN    F D ( A23, A  1 8, A08,C28,C 1 8 ,COB  ,         & 

01335  &  "  B28,E18,E08) 

01340  ELSE 

01350  PRINT    TGTRG 

01360  ENDIF 

0137  0  RETURN 

01380  REM    ************************************************** 

01390  REM 

01395  REM    ************************************************** 

C1400  REM    ***    FIRING    DATA    COMPUTATION    FUNCTION    ************* 

01405  REM    ************************************************** 

014  10  REM  START 

01420  DEF     FN    FD(A2,A1,A0<C2.C1,C0,32,B1  ,B0)_ 

01430  EI    =     (-A1+SCR(A1**2-(4*A2*  (A0-TGTP.G*5GK),S 

01435  5  )  )  )/(2*A2) 

01440  IF    EL    >     HACR0S3 

01450  PRINT    TGTAZ, TGTRG 

01460  ELSE 

01470  PRINT    C0+C1*EL+C2*SL**2 

C1480  PRINT    R  EFDEF  +  DFCOR+ (BTRYL-TGTAZ)  ■»■  & 

01481  8  (B0+B1*EL+B2*EL**2)) 

01490  PRINT    EL+ (  (GRIDA-3TRYA  +  20)/TGTRG*1000) 

01500  ENTIF 

01510  FNEND 

01515  REM    ************************************************** 

01516  REM  END     EAX59    TEST    PROGRAM    NUMBER    ONE 

01518  REM    ************************************************** 

_    CCMPILATICN_SUaMARY 

0    FATAL    ERRORS. 
0    WARNING    MSGS. 

81    IS  NEXT    AVAILABLE    REGISTER 

TOTAL  REGISTERS     RESERVED    =     11 
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TOTAL 
TOTAL 


REGISTERS 
LABELS 


aSED 
USED 


=     70 
=    5 


COMPILATION    TERMINATES 


TI-59     CCEE    TRANSLATED    FR0.1 
(UNSEG.^JENTED) 


W5ASIC 


JO 


ACDR 


CODE 


BEGIN    TI-59    CODE 


000 

76 

2ND  I EL 

00  1 

11 

A 

C02 

71 

S3R 

003 

12 

P 

004 

68 

2ND  NOP 

005 

71 

S3R 

006 

13 

C 

007 

68 

2ND  NOP 

008 

71 

33R 

009 

14 

D 

010 

68 

2ND  NCP 

01  1 

24 

CE 

012 

C8 

9 

013 

08 

8 

oia 

08 

8 

015 

91 

R/S 

016 

76 

2ND  LBL 

017 

12 

B 

018 

53 

( 

019 

43 

RCL 

020 

59 

59 

021 

85 

+ 

022 

53 

( 

023 

43 

RCL 

024 

63 

63 

025 

65 

* 

026 

53 

( 

027 

53 

( 

028 

43 

RCL 

029 

65 

65 

030 

75 

- 

03  1 

43 

RCL 

032 

61 

61 

033 

54 

) 

034 

55 

/ 

035 

43 

RCL 

036 

64 

64 

037 

54 

2ND  SIN 

038 

38 

039 

75 

- 

040 

43 

RCL 

04  1 

62 

62 

042 

65 

« 

043 

53 

{ 

044 

53 

045 

43 

RCL 

046 

65 

65 

047 

75 

- 

C48 

43 

RCL 

049 

61 

61 

050 

54 

) 

051 

55 

/ 

052 

43 

RCL 

053 

64 

64 

054 

5U 

) 

055 

39 

2ND  CCS 
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C56 

54 

■ 

057 

54 

C58 

42 

STO 

059 

59 

59 

C60 

c  "3 

( 

06  1 

43 

BCL 

062 

58 

58 

06  3 

85 

+ 

064 

53 

( 

06  5 

43 

RCL 

066 

63 

63 

067 

65 

* 

068 

53 

( 

069 

53 

RCL 

C70 

43 

fi^l 

65 

65 

^  f— 

43 

RCL 

C74 

61 

61 

07  5 

54 

) 

C76 

55 

/ 

07  7 

43 

RCL 

C78 

64 

64 

079 

54 

) 

C83 

39 

2ND    CCS 

08  1 

85 

+ 

C82 

43 

RCL 

083 

62 

62 

C84 

65 

* 

085 

53 

( 

C86 

53 

! 

087 

43 

RCL 

C88 

65 

65 

039 

75 

- 

090 

43 

RCL 

09  1 

61 

61 

092 

54 

) 

093 

55 

/ 

094 

43 

RCL 

095 

64 

64 

096 

54 

) 

C97 

38 

2ND    SIN 

CSS 

54 

099 

54 

100 

42 

STO 

101 

58 

58 

102 

92 

INV     SER 

103 

76 

2ND    lEL 

104 

13 

105 

53 

( 

106 

53 

1 

107 

53 

108 

43 

RCL 

109 

58 

58 

110 

75 

- 

11  1 

43 

RCL 

112 

52 

52 

113 

54 

Y**X 

114 

45 

115 

02 

2 

116 

65 

+ 

117 

53 

( 

118 

43 

RCL 

119 

59 

59 

120 

75 

- 

121 

43 

RCL 

122 

53 

53 

123 

54 

Y**X 

124 

45 

255 


125 

02 

2 

126 

54 

) 

127 

34 

SQRT  (X) 

128 

54 

) 

129 

42 

3T0 

130 

67 

67 

131 

53 

i 

132 

53 

} 

133 

53 

( 

13U 

43 

RCL 

135 

59 

59 

136 

75 

- 

137 

43 

RCL 

138 

53 

53 

139 

54 

) 

140 

55 

/ 

141 

43 

RCL 

142 

67 

67 

143 

54 

2ND     INV 

144 

27 

145 

38 

2ND     SIN 

146 

65 

♦ 

147 

43 

RCL 

148 

64 

64 

149 

54 

) 

150 

42 

3T0 

151 

68 

68 

152 

43 

RCL 

153 

58 

58 

154 

32 

X<  =  >T 

155 

43 

RCL 

156 

52 

52 

157 

32 

X<=>T 

158 

22 

INV 

159 

77 

2ND    x>=': 

160 

01 

01 

161 

74 

74 

162 

53 

( 

163 

43 

RCL 

164 

c5 

65 

165 

75 

- 

166 

43 

RCL 

167 

68 

63 

168 

54 

) 

169 

42 

STO 

170 

68 

68 

171 

61 

GTO 

172 

01 

o-" 

173 

e5 

95 

174 

53 

^ 

175 

C3 

176 

65 

« 

177 

43 

RCL 

178 

65 

65 

179 

85 

+ 

180 

43 

RCL 

181 

68 

68 

182 

54 

) 

183 

42 

STO 

184 

68 

68 

185 

92 

INV     SER 

186 

76 

2ND    LEL 

187 

14 

D 

188 

43 

RCL 

189 

67 

67 

190 

32 

X<  =  >T 

191 

43 

RCL 

192 

47 

47 

193 

22 

INV 

256 


19a 

77 

195 

02 

196 

44 

197 

53 

1S8 

43 

199 

11 

200 

42 

201 

71 

202 

43 

203 

12 

204 

42 

205 

72 

206 

43 

207 

13 

208 

42 

20  9 

73 

210 

43 

21  1 

14 

212 

42 

213 

74 

214 

43 

215 

15 

216 

42 

217 

75 

218 

43 

219 

16 

220 

42 

22  1 

76 

222 

43 

22  3 

19 

224 

42 

225 

77 

226 

43 

227 

18 

228 

42 

229 

78 

230 

43 

23  1 

17 

232 

42 

233 

79 

234 

53 

235 

71 

236 

15 

237 

54 

238 

54 

239 

42 

240 

69 

24  1 

61 

24  2 

C4 

243 

16 

244 

43 

245 

67 

246 

32 

247 

43 

24  8 

48 

249 

22 

250 

77 

251 

03 

252 

00 

253 

53 

254 

43 

255 

20 

256 

42 

257 

71 

258 

43 

259 

21 

26  0 

42 

26  1 

72 

262 

43 

2ND     X>=T 

02 

44 

RCL 
11 

STO 

71 

RCL 

12 

STO 

72 

RCL 

13 

STO 

73 

3CL 

14 

STO 

74 

RCL 

15 

STO 

75 

RCL 

16 

STO 

76 

RCL 

19 

STO 

77 

RCL 

18 

STO 

78 

RCL 

17 

STO 

79 

( 

SBR 

E 


STO 

69 

GTO 

04 

16 

RCL 

67 

X<  =  >T 

RCL 

48 

INV 

21^D     X>=T 

03 

00 

RCL 

20 

STO 

71 

RCL 

21 

STO 

72 

RCL 


257 


263 

264 
26  5 
266 

26  7 
268 
269 
270 

27  1 
272 
273 
27  4 
27  5 
276 
27  7 
273 
27  9 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
293 
299 
300 
30  1 
302 
303 
304 
305 

30  6 
307 
308 
309 
310 

31  1 
312 
313 
31 
31 
31 
31 
31 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
33  1 


22 
42 
73 
43 
23 
42 
74 
43 
24 
42 
75 
43 
25 
42 
76 
43 
28 
42 
77 
43 
27 
42 
78 
43 
26 
42 
79 
53 
71 
15 
54 
54 
42 
69 
61 
04 
16 
43 
67 
32 
43 
49 
22 
77 
03 
56 
53 
43 
29 
42 
71 
43 
30 
42 
72 
43 
31 
42 
73 
43 
32 
42 
74 
43 
33 
42 
75 
43 
34 


22 

STO 
73 
RCL 
23 

sro 

74 

RCL 

24 

STO 

75 

RCL 

25 

STO 

76 

RCL 

28 

STO 

77 

RCL 

27 

STO 

78 

RCL 

26 

STO 

79 

SBR 


STO 

69 

GTO 

04 

16 

RCL 

67 

X<  =  >T 

RCL 

49 

INV 

2ND     X>=T 

03 

56 

RCL 

29 

STO 

71 

RCL 

30 

STO 

72 

HCL 

31 

STO 

73 

RCL 

32 

STO 

74 

acL 

33 
STO 
75 
RCL 

34 


258 


332 
333 
334 
335 
336 
33  7 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 

35  1 
352 
353 
354 
355 
356 
357 
358 
359 
360 

36  1 
362 

36  3 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 

37  5 
37  6 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
39  1 
392 
393 
394 
395 
396 
397 
398 
399 
400 


42 
76 
43 
37 
42 
77 
43 
36 
42 
78 
43 
35 
42 
79 
53 
71 
15 
54 
54 
42 
69 
61 
C4 
16 
43 
67 
32 
43 
50 
22 
77 
04 
12 
53 
43 
38 
42 
71 
43 
39 
42 
72 
43 
40 
42 
73 
43 
41 
42 
74 
43 
42 
42 
75 
43 
43 
42 
76 
43 
46 
42 
77 
43 
45 
42 
78 
43 

44 

42 


STO 

76 

3CL 

37 

STO 

77 

RCL 

36 

STO 

78 

RCL 

35 

STO 

79 

SBR 


STO 

69 

GTO 

04 

16 

RCL 

67 

X<  =  >I 

RCL 

50 

INV 

2ND 

04 

12 

RCL 

38 

STO 

71 

RCL 

39 

STO 

72 

RCL 

40 

STO 

73 

RCL 

41 

STO 

74 

RCL 

42 

STO 

75 

RCL 

43 

STO 

76 

RCL 

46 

STO 

77 

RCL 

45 

STO 

78 

RCL 

44 

STO 


X>=' 


259 


UOI 

79 

79 

ao2 

53 

^BR 

403 

71 

404 

15 

E 

405 

54 

) 

406 

54 

) 

407 

42 

STO 

408 

69 

69 

409 

61 

GTO 

410 

04 

04 

411 

16 

16 

412 

43 

RCL 

413 

67 

67 

414 

99 

2ND    FET 

415 

98 

2ND   acv 

416 

92 

INV    SEE 

417 

76 

2ND    LEL 

418 

15 

E 

419 

00 

0 

420 

42 

STO 

421 

70 

70 

422 

53 

423 

53 

424 

43 

RCL 

425 

72 

72 

426 

94 

V- 

427 

85 

•f 

428 

53 

( 

429 

43 

RCL 

430 

72 

72 

431 

45 

Y**X 

432 

02 

2 

433 

75 

- 

434 

53 

( 

435 

04 

4 

436 

65 

* 

437 

43 

RCL 

438 

71 

71 

439 

65 

* 

440 

53 

( 

441 

43 

RCL 

442 

73 

73 

443 

75 

- 

444 

43 

RCL 

44  5 

67 

67 

446 

65 

* 

447 

43 

RCL 

448 

56 

56 

449 

54 

450 

54 

451 

54 

452 

34 

SQRT  (X) 

453 

54 

) 

454 

55 

/ 

455 

53 

i 

z 

456 

02 

457 

65 

* 

458 

43 

RCL 

459 

71 

71 

460 

54 

46  1 

54 

462 

42 

STO 

46  3 

80 

80 

464 

43 

RCL 

46  5 

80 

80 

466 

32 

X<  =  >T 

467 

43 

RCL 

468 

51 

51 

469 

77 

2ND     X>=T 
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mo 

C4 

04 

U7  1 

82 

82 

a72 

43 

RCL 

U73 

68 

68 

um 

99 

2ND     FBT 

UTS 

43 

RCL 

476 

67 

67 

477 

99 

2ND    FRT 

478 

98 

2ND     ACV 

479 

61 

GTO 

480 

05 

C5 

48  1 

65 

65 

482 

5  3 

( 

48  3 

43 

RCL 

464 

76 

76 

485 

85 

+ 

486 

43 

RCL 

487 

75 

75 

488 

65 

« 

489 

43 

RCL 

490 

80 

80 

49  1 

85 

+ 

492 

U3 

RCL 

493 

74 

74 

494 

65 

* 

49  5 

43 

RCL 

496 

80 

80 

49  7 

45 

Y**X 

498 

02 

2 

499 

54 

2ND    PET 

500 

99 

501 

98 

2ND    ACV 

502 

c  ? 

( 

50  3 

43 

RCL 

504 

66 

66 

505 

85 

+ 

506 

43 

RCL 

507 

57 

57 

508 

85 

+ 

509 

53 

( 

510 

43 

RCL 

511 

55 

55 

512 

75 

- 

513 

43 

RCL 

514 

68 

68 

515 

54 

) 

516 

55 

+ 

517 

53 

( 

518 

43 

PCL 

519 

79 

79 

520 

85 

+ 

521 

43 

RCL 

522 

78 

78 

523 

65 

* 

524 

43 

RCL 

525 

80 

80 

526 

85 

+ 

527 

43 

RCL 

528 

77 

77 

529 

65 

* 

530 

43 

RCL 

53  1 

80 

80 

532 

45 

Y**X 

533 

02 

2 

534 

54 

) 

535 

54 

i 

536 

99 

2ND    PRT 

537 

98 

2ND    AEV 

538 

53 

( 
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539  43  RCL 

540  eO  80 

541  35  + 

542  53  ( 

543  53  ! 

544  43  RCL 

545  60  60 

546  75 

547  43  RCL 

548  54  54 

549  85  + 

550  02  2 

551  00  0 

552  54  ) 

553  55  / 

554  43  RCL 

555  67  67 

556  65  * 

557  01  1 

558  00  0 

559  00  0 

560  00  0 

561  54 

562  54 
56  3  99  SND    PRT 

564  S8  2ND     ADV 

565  43  RCL 

566  70  70 

567  92  INV    S£R 

BUCKET  CONTENTS  REG  TYP 

03 

REFDEF  66  GLOBAL    VAR 

05    

ICG  10  ..  QUICK    FN 

06 

GRIDA                                              60          GL03AL    VAR 
08 

EL                                                      30          GLOBAL    VAR 
10    

GRIDE                                              58          GLOBAL    VAR 
13 

FP  ..  QUICK    FN 

ABS                                                    ..          QUICK    FN 
14    

FN    FD                                              7  0          PARAMETER    FN 
16    = 

PI  ..  CONSTANT 

IP  ..  QUICK    FN 

CSC                                                    . .          QUICK    FN 
18    , 

SEC                                                    ..          QUICK    FN 
20    

DFCOR                                             57          GLOBAL    VAR 
24    ^ 

LOG                                                    ..          QUICK    FN 
26 

GRIDN                                             59          GLOBAL    VAR 
RGK                                                    56          GLOBAL    VAR 
RND                                                    10          LONG    FN 
28    

ACQS                                                 ..          QUICK    FN 
30    

MILRAD  64  GLOBAL    VAR 
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33    

TAN  ..  gaiCK    FN 

ATN  ..  QaiCK    FN 

A  SIN                                                 ..          QUICK    FN 
35    

COS                                                      ..           Q'JICK    FN 
3(5    

COT  ..  QUICK    FN 

SGDEV  63  GLOBAL    V AR 

40    

SIN  . .  QUICK    FN 

41     

CT                                                      6  1          GLOBAL    7 AR 
43    

EXP                                                    .,          QUICK    FN 
53    

LATDEV                                          62          GLOBAL    V AR 
59    

SQR  ..  QUICK    FN 

ETRYA                  54    GLOBAL  7AR 
64  

INVOKE                 69    GLOBAL  V  AR 
67  

ETPYE                  52    GLOBAL  V  AR 
69  

TGTRG                  67    GLOBAL  V AR 
71  

HACROSS  5  1    GLOBAL  V  AR 

74  

CHGaMAX  47  GLOBAL    V  AR 

75    

CHG5MAX                                        48          GLOBAL    V AR 
77    

CHG7MAX                                        49          GLOBAL    V  AE 
A04                                                    13          GLOBAL    VAR 
78 

CHG8MAX  50  GLOBAL    VAR 

A05  22  GLOBAL    VAR 

E04  17  GLOBAL    VAR 

A14                                                    12          GLOBAL    VAR 
79    

TGTAZ  68  GLOBAL    V  AH 

E05  26  GLOBAL    VAR 

A15  21  GLOBAL    VAR 

E1U  18  GLOBAL    VAR 

COU  16  GLOBAL    VAR 

A24  11  GLOBAL    VAR 

80 

A07  3  1  GLOBAL  VAR 

E15  27  GLOBAL  VAR 

C05  25  GLOBAL  VAR 

A25  20  GLOBAL  VAR 

B24  19  GLOBAL  VAR 

C14  15  GLOBAL  VAR 

81 

BTRYL  55  GLOBAL    VAR 

A08  40  GLOBAL    VAR 

E07  35  GLOBAL    VAR 

A17  30  GLOBAL    VAR 

B25  28  GLOBAL    VAR 

C15  24  GLOBAL    VAR 

C24  14  GLOBAL    VAR 

BOa  44  GLOBAL    VAR 

A18  39  GLOBAL    VAR 

B17  36  GLOBAL    VAR 

C07  34  GLOBAL    VAR 
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83 


A  27 
C25 


29 
23 


GLOBAL 
GLOBAL 


VAS 

YAR 


ETRYN 

E18 

COB 

A  28 

E2'7 

C17 


53 
45 
43 
38 
37 
33 


GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 


VAR 
VAR 
VAR 

VAR 
VAR 
VAR 


84 

RCTCOH 

65 

GLOBAL    VAR 

B28 

46 

GLOBAL    VAR 

C18 

42 

GLOBAL    VAR 

QC.      ^  _  _. 

C27 

32 

GLOBAL    VAR 

oD     —  —  — ■ 

*              ••             M~w                       «aaa^              v 

"^"'■'               i«™^™^« 

■"^^^        **^^ 

C28 

41 

GLOBAL    VAR 
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APPENPII   5 
TEST     FHOGBAM    NAME    MAPPING    FILE     (NAMEF) 


TI-59     5EGISTER    TO    NAUE    MAPPING 


REG#  BASIC    NAME 

11  A  2  4 

12  A1U 

13  A  0  4 

iu  c2a 

15  C14 

16  C04 

17  B04 

18  314 

19  324 

20  A25 

21  A15 

22  A05 

23  C25 

24  C15 

25  COS 

26  305 

27  315 

28  325 

29  A27 

30  A17 

3  1  A07 

32  C27 

33  C17 

34  C07 

35  B07 

36  317 

37  327 

38  A28 

39  A18 

40  A08 

41  C28 

42  C18 

43  COS 

44  BOB 

45  318 

46  328 

47  CHG4MAX 

4  8  CHG5MAX 

49  CHG7MAX 

50  CHG8MAX 

51  HACROSS 

5  2  3TRYE 

53  3TRYN 

54  BTRYA 

55  3TRYL 

56  RGK 

57  DECOR 

5  8  GRIDE 

59  GRIDN 

60  GRIDA 

61  OT 

6  2  LATDEV 
63  RGDEV 
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6a 

65 
66 
67 
68 
69 
70 
71 
72 
73 
7U 
75 
76 
77 
78 
79 
80 


MILRAD 
ROTCOR 
REFDEF 
TGTRG 
TGTAZ 
INVOKE 
FN     FD 
'FN 
FN 
FN 
FN 
FN 
FN 
FN 
FN 
FN 
5L  ^ 


PARAM 
PARAM 
PARAM 
PARAM 
PABAM 
PARAM 
PARAM 
PARAM 
PARAM 


ETE  B) 

ETER) 

ETE  R'l 
ETER'i 
ETER  I 
ETER' 
ETER  I 
ETER' 
ETE  R'l 
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APPENDIX    N 
TEST   PROGRAM    CATA/READ    MAPPING    FILE    (3EADF) 

INPui"DATA~TO~RiAD~MA??iNG 


DAIA 

-.0133670 
2  1.2691 
•105.7 

■.00C01U99 
.C6630 
-.41 

.77 

.oi3ia 

.00001720 

-.0149331 
24.3439 
64.7 

-.00001420 
.07C69 
.06 

1.26 

.01508 

.00001678 

-.0173835 
29.6741 
2255. 2 

•.00C01668 
.03487 
3.29 

1.3 
.02713 

.00001306 

-.0182137 
32.3731 
4 1C7. 4 

-.00001668 
.09272 
5.74 

1.36 

.02891 

.00001410 

5700 
7000 
10800 
176C0 


REG 


NAM' 


11 

12 

13 

A24 
A14 
A04 

14 
15 
16 

C24 
C14 
CO  4 

17 
18 
19 

BO  4 
B14 

B24 

20 
21 
22 

A25 
A15 
A05 

23 
24 
25 

C25 
CIS 
COS 

26 
27 
28 

805 
B15 
B25 

29 
30 
31 

A27 

A17 
A07 

32 
33 
34 

C27 
C17 
C07 

35 
36 
37 

B07 
B17 
B27 

38 
39 

40 

A28 

A18 
A08 

41 
42 
43 

C28 

cia 

CO  8 

44 
45 
46 

308 
B18 
B28 

47 

48 
49 
50 

CHG4MAX 
CHG5MAX 
CHG7MAX 
CHG8MAX 
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715 

0 
0 
0 

800 

1.0 
0 

uooo 
aooo 

10 

4000 
•400 
10 

1018.  5924 

1600 

3200 


51 

HACROSS 

52 
53 

54 
55 

BTRYE 
BTRYN 
BTRYA 

BTRYL 

56 
57 

EGK 
DFCOR 

60 

GRIDE 
GRIDM 

GRIDA 

61 
62 

63 

OT 

LATDEV 

EGDEV 

64 
65 
66 

MIL  RAD 
ROTCOR 

REFDE? 
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APPENDIX    0 
lEST    Pfi(QGHAM    LINK    INTERFACE    FILE     (SCRATCH) 


$1 

81    IS    NEXT    AVAILABLE    REG. 

$1 

$2 


TI-59    CODE    TRANSLATED    FEOiM    W3ASIC 

_i^^^2!5!!^^^^5l 

ACDB         CODE 
10 BEGIN    TI-59    CODE, 

L  EL 


000 

76 

2ND 

00  1 

11 

A 

002 

71 

SBR 

00  3 

12 

p 

004 

68 

2ND 

COS 

71 

SBR 

006 

13 

C 

C07 

68 

2ND 

008 

71 

SBR 

C09 

14 

D 

010 

68 

2ND 

01  1 

24 

CE 

012 

08 

8 

013 

ce 

8 

014 

08 

8 

015 

91 

R/S 
2ND 

016 

76 

017 

12 

B 

018 

53 

( 

C19 

43 

RCL 

020 

59 

59 

021 

S5 

+ 

022 

53 

( 

023 

43 

RCL 

024 

63 

63 

025 

65 

* 

026 

53 

( 

027 

53 

( 

028 

43 

RCL 

029 

65 

65 

030 

75 

- 

C31 

43 

RCL 

032 

61 

61 

033 

54 

) 

03  4 

55 

/ 

035 

43 

RCL 

036 

64 

64 

037 

54 

) 

038 

38 

2ND 

039 

75 

- 

040 

43 

RCL 

04  1 

62 

62 

042 

65 

* 

043 

53 

1 

044 

53 

045 

43 

RCL 

NOP 
NOP 
NOP 

LEL 


SIN 
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oue 

65 

65 

C47 

75 

- 

0U8 

43 

RCL 

CU9 

61 

61 

050 

54 

) 

051 

55 

/ 

052 

43 

ECL 

053 

64 

64 

054 

54 

) 

055 

39 

2ND    CCS 

056 

54 

! 

057 

54 

058 

42 

STO 

C59 

59 

59 

060 

53 

( 

06  1 

43 

RCL 

06  2 

58 

58 

063 

65 

+ 

064 

53 

( 

065 

43 

RCL 

066 

63 

63 

067 

65 

♦ 

068 

53 

1 

C69 

53 

070 

43 

RCL 

07  1 

65 

65 

072 

75 

- 

C73 

43 

RCL 

07  4 

61 

61 

075 

54 

) 

076 

55 

/ 

C77 

43 

RCL 

078 

64 

64 

C79 

54 

2ND    CCS 

080 

39 

cai 

85 

+ 

082 

43 

RCL 

083 

62 

62 

084 

65 

* 

C85 

53 

1 

086 

53 

C87 

4  3 

RCL 

088 

65 

65 

C89 

75 

- 

090 

43 

RCL 

091 

61 

€1 

092 

54 

) 

093 

55 

/ 

09U 

43 

RCL 

095 

64 

64 

096 

54 

2ND    SIN 

C97 

38 

098 

54 

C99 

54 

130 

42 

STO 

101 

58 

58 

102 

92 

INV     SER 

103 

76 

2ND    IBL 

104 

13 

C 

105 

53 

' 

106 

53 

■ 

107 

53 

108 

43 

RCL 

109 

58 

58 

110 

75 

- 

111 

43 

RCL 

112 

52 

52 

113 

54 

Y**X 

114 

45 

270 


115 

02 

2 

116 

85 

+ 

117 

53 

( 

118 

43 

5CL 

119 

59 

59 

120 

75 

- 

121 

43 

RCL 

122 

53 

53 

123 

54 

Y**X 

12U 

45 

125 

C2 

2 

126 

54 

) 

127 

34 

SQRT(X) 

123 

54 

) 

129 

42 

STO 

130 

67 

67 

131 

53 

( 

132 

53 

( 

133 

53 

( 

134 

43 

RCL 

135 

59 

59 

136 

75 

- 

137 

43 

RCL 

133 

53 

53 

139 

54 

) 

1U0 

55 

/ 

141 

43 

ECL 

142 

67 

67 

143 

54 

) 

144 

27 

2ND    INV 

145 

38 

2ND     SIN 

146 

65 

* 

147 

43 

RCL 

148 

64 

64 

149 

54 

) 

150 

42 

STO 

151 

68 

68 

152 

43 

RCL 

153 

58 

53 

154 

32 

X<=>T 

155 

43 

RCL 

156 

52 

52 

157 

32 

X<  =  >T 

153 

22 

INV 

159 

77 

2ND     X>= 

160 

01 

01 

161 

74 

74 

162 

53 

( 

163 

43 

RCL 

164 

65 

65 

165 

75 

- 

166 

43 

ECL 

167 

68 

68 

168 

54 

) 

169 

42 

STO 

170 

68 

68 

171 

61 

GTO 

172 

01 

01 

173 

65 

85 

174 

53 

i 

175 

C3 

176 

65 

* 

177 

43 

RCL 

173 

65 

65 

179 

65 

+ 

180 

43 

RCL 

181 

68 

68 

182 

54 

STO 

183 

42 

27  1 


184 

68 

58 

185 

92 

INV     SER 

186 

76 

2ND    LEL 

187 

14 

D 

188 

43 

3CL 

189 

67 

57 

190 

32 

X<=>T 

191 

43 

RCL 

192 

47 

47 

193 

22 

INV 

19U 

77 

2ND    X>= 

195 

02 

02 

196 

44 

44 

197 

53 

( 

198 

43 

RCL 

199 

11 

11 

200 

42 

STO 

201 

71 

71 

20  2 

43 

RCL 

203 

12 

12 

204 

42 

STO 

205 

72 

72 

206 

43 

RCL 

207 

13 

13 

208 

42 

STO 

209 

73 

73 

210 

43 

RCL 

21  1 

14 

14 

212 

42 

STO 

213 

74 

74 

214 

43 

RCL 

215 

15 

15 

216 

42 

STO 

217 

75 

75 

213 

43 

RCL 

219 

16 

16 

220 

42 

STO 

221 

76 

76 

222 

43 

RCL 

223 

19 

19 

224 

42 

STO 

225 

77 

77 

226 

43 

RCL 

227 

18 

18 

228 

42 

STO 

229 

78 

78 

230 

43 

RCL 

23  1 

17 

17 

232 

42 

STO 

233 

79 

79 

23  4 

53 

SBR 

235 

71 

236 

15 

2 

237 

54 

238 

54 

239 

42 

STO 

240 

69 

69 

24  1 

61 

GTO 

242 

04 

04 

24  3 

16 

15 

244 

43 

RCL 

24  5 

67 

67 

246 

32 

X<=>T 

247 

43 

RCL 

248 

48 

48 

249 

22 

INV 

250 

77 

2ND     X>= 

251 

03 

03 

252 

00 

00 

272 


253 

53 

RCL 

25a 

43 

255 

20 

20 

256 

42 

STO 

257 

71 

71 

25  3 

43 

RCL 

259 

21 

21 

26  0 

42 

STO 

26  1 

72 

72 

262 

43 

RCL 

263 

22 

22 

26  4 

42 

STO 

265 

73 

73 

266 

43 

RCL 

267 

23 

23 

26  8 

42 

STO 

26  9 

74 

74 

270 

4  3 

RCL 

27  1 

24 

24 

272 

42 

STO 

273 

75 

75 

27  U 

43 

RCL 

275 

25 

25 

276 

42 

STO 

277 

76 

76 

27  8 

43 

RCL 

279 

28 

28 

280 

42 

STO 

281 

77 

77 

282 

43 

RCL 

283 

27 

27 

284 

42 

STO 

285 

78 

78 

286 

U3 

RCL 

287 

26 

26 

288 

42 

STO 

289 

79 

79 

290 

53 

S3R 

291 

71 

292 

15 

2 

293 

54 

) 

294 

54 

i 

295 

42 

STO 

296 

69 

69 

297 

61 

GTO 

298 

04 

04 

299 

16 

16 

300 

43 

RCL 

30  1 

67 

67 

302 

32 

X<=>T 

303 

43 

RCL 

304 

49 

49 

305 

22 

INV 

306 

77 

2ND    X>= 

-IT" 
■  X 

307 

03 

03 

30  3 

56 

56 

309 

53 

( 

310 

43 

RCL 

31  1 

29 

29 

312 

42 

STO 

313 

71 

71 

314 

43 

RCL 

515 

30 

30 

316 

42 

STO 

317 

72 

72 

313 

43 

RCL 

319 

31 

31 

320 

42 

STO 

321 

73 

73 

273 


322 
323 
324 
325 
325 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
34  3 

34  4 
345 
346 
347 
348 
349 
350 
351 
352 

35  3 
354 
355 
356 
357 
358 
359 
360 

36  1 
362 
363 
364 
36  5 
366 
36  7 
368 

36  9 
370 
371 

37  2 
373 
37  4 
375 
376 
377 
378 
379 
380 
381 
332 
383 
384 
385 
386 
387 
388 
389 
39  0 


43 

32 

42 

74 

43 

33 

42 

75 

43 

34 

42 

76 

43 

37 

42 

77 

43 

36 

42 

78 

43 

35 

42 

79 

53 

71 

15 

54 

54 

42 

69 

61 

C4 

16 

43 

67 

32 

43 

50 

22 

77 

04 

12 

53 

43 

38 

42 

71 

43 

39 

42 

72 

43 

40 

42 

73 

43 

41 

42 

74 

43 

42 

42 

75 

43 

43 

42 

76 

43 


RCL 

32 

STO 

74 

RCL 

33 

STO 

75 

RCL 

34 

STO 

76 

ECL 

37 

STO 

77 

RCL 

36 

STO 

78 

RCL 

35 

STO 

79 

SBR 


STO 

69 

GTO 

04 

16 

RCL 

67 

X<=>T 

?.CL 

50 

INV 

2ND 

04 

12 

RCL 

38 

STO 

71 

RCL 

39 

STO 

72 

RCL 

40 

STO 

73 

RCL 

41 

STO 

74 

RCL 

42 

STO 

75 

RCL 

43 

STO 

76 

RCL 


x>=: 
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391 

46 

46 

392 

42 

STO 

393 

77 

77 

39  4 

43 

RCL 

395 

45 

45 

396 

42 

STO 

397 

78 

78 

398 

43 

RCL 

399 

44 

44 

400 

42 

STO 

aoi 

79 

79 

U02 

53 

SBR 

403 

71 

404 

15 

S 

40  5 

54 

! 

406 

54 

4C7 

42 

STO 

40  8 

69 

69 

409 

61 

GTO 

410 

04 

04 

41  1 

16 

16 

412 

43 

RCL 

413 

67 

67 

414 

99 

2ND  FRT 

415 

98 

2ND  ADV 

416 

92 

INV  SER 

417 

76 

2ND  LBL 

418 

15 

E 

419 

00 

0 

420 

42 

STO 

421 

70 

70 

422 

53 

423 

53 

424 

43 

RCL 

425 

72 

72 

426 

94 

V' 

427 

85 

+ 

428 

53 

( 

429 

43 

RCL 

430 

72 

72 

431 

45 

Y**X 

432 

02 

2 

433 

75 

- 

434 

53 

( 

435 

C4 

4 

436 

65 

* 

437 

43 

RCL 

43  8 

71 

71 

439 

65 

* 

440 

53 

( 

44  1 

H3 

RCL 

442 

73 

73 

443 

75 

- 

44  4 

43 

RCL 

44  5 

67 

67 

446 

65 

* 

447 

43 

RCL 

446 

56 

56 

449 

54 

450 

54 

451 

54 

452 

34 

SQRT  (X) 

453 

54 

) 

454 

55 

/ 

455 

53 

( 

456 

02 

2 

457 

65 

* 

453 

43 

RCL 

459 

71 

71 

275 


46  0 

54 

i 

a6i 

54 

U6  2 

42 

3T0 

46  3 

go 

80 

46  4 

43 

RCL 

465 

80 

80 

466 

32 

X<=>T 

46  7 

43 

RCL 

468 

51 

51 

469 

77 

2ND     X>=' 

470 

04 

04 

47  1 

82 

82 

47  2 

43 

RCL 

473 

68 

68 

474 

99 

2ND    FRT 

475 

43 

RCL 

476 

67 

67 

477 

99 

2ND    FRT 

478 

98 

2ND     flCV 

479 

61 

GTO 

480 

05 

05 

481 

65 

65 

48  2 

53 

( 

483 

43 

RCL 

484 

76 

76 

465 

85 

•f 

486 

43 

RCL 

487 

75 

75 

48  8 

65 

* 

489 

43 

RCL 

490 

80 

80 

49  1 

85 

■*■ 

492 

43 

RCL 

493 

74 

74 

494 

65 

* 

495 

43 

RCL 

496 

80 

80 

497 

45 

Y**X 

49  8 

02 

2 

499 

54 

2ND    PRT 

500 

99 

501 

98 

2ND     ACV 

50  2 

53 

( 

503 

43 

RCL 

504 

66 

66 

505 

65 

+ 

506 

43 

RCL 

507 

57 

57 

508 

85 

+ 

509 

53 

RCL 

510 

4  3 

51  1 

55 

55 

512 

75 

- 

513 

43 

RCL 

514 

68 

68 

515 

54 

) 

516 

85 

•f 

517 

53 

RCL 

518 

43 

519 

79 

79 

520 

85 

■«■ 

521 

43 

RCL 

522 

78 

73 

523 

65 

« 

524 

43 

RCL 

525 

60 

30 

526 

85 

•♦• 

527 

43 

RCL 

528 

77 

77 

276 


-1 

$2 


529 
530 
531 
532 

533 

53  4 
535 
536 
537 
538 
539 
540 

5ai 

5U2 
543 
544 

54  5 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
56  0 
561 
562 
563 
56  4 
565 
566 
567 


65 
43 
80 
45 
02 
54 
54 
99 
98 
53 
43 
80 
85 
53 
53 
43 
60 
75 
43 
54 
85 
02 
00 
54 
55 
43 
67 
6  5 
01 
00 
00 
00 
54 
54 
99 
98 
43 
70 
92 


RCL 

80 

2 


2ND    PFT 
2ND     ADV 

RCL 
80 

•f 


RCL 
60 

RCL 

54 

+ 

2 

0 

) 
/ 

RCL 
67 

* 

1 

0 
0 
0 


2ND 
2ND 

RCL 

70 

TNV 


FRT 
ACV 


SER 


END    TI-59    CODE 
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$3 


TI-59     BEGISTER    TO    NAilE    MAPPING 


REG# 

11 
12 

13 

ia 

15 

16 
17 
18 
19 

20 
21 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 


BASIC  NAME 

A24 

A14 

A04 

C24 

C14 

C04 

B04 

314 

B24 

A25 

A15 

A05 

C25 

C15 

COS 

305 

BIS 

32S 

A27 

A17 

A07 

C27 

C17 

C07 

307 

317 

B27 

A28 

A18 

AGS 

C28 

CIS 

C08 

808 

B18 

B28 

CHG4MAX 

CHG5MAX 

CHG7:iAX 

CHG8MAX 

HACROSS 

3TRYE 

3TRYN 

BTRYA 

BTRYL 

RGK 

DFCOR 

GRIDE 

GRIDN 

GRIDA 

OT 

LATDEV 

RGDZV 

MILRAD 

ROTCOR 

REFDEP 

TGTRG 

TGTAZ 

INVOKE 

FN  ?D 

7FN  PARAMETER) 
(FN  PARAMETER) 
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73  (FN  PARAMETER) 

in  (FN  PARAMETER) 

75  (FN  PARAMETER) 

76  (FN  PARAMETER) 

77  (FN  PARAMETER) 

78  (FN  PARAMETER) 

79  (FN  PARAMETER) 

80  EL 
■53 


279 


su 


INPUT    DATA    TO    READ   .CAPPING 


DATA 

-.0133670 
21.2691 
■105.7 

-.00001499 
.C663G 
-.41 

.77 

.01314 
.00001720 

-.0149331 
24.3439 
64.7 

-.00001420 
.07069 
.06 

1.26 

.01506 

.00001678 

-.0173835 
29.8741 
2255. 2 

-.00001668 
,08487 
3.29 

1.3 

.02713 

.00C01306 

-.0182137 
32.3731 

4107. 4 

-.00001668 
.09272 
5.74 

1.36 

.02891 

.00001410 

570G 
7000 
10800 
17600 

715 

0 
0 
0 
800 

1.0 

0 


REG 

11 

12 
13 

14 
15 
16 

17 

18 
19 

20 
21 
22 

23 

24 
25 

26 
27 
28 

29 
30 
31 

32 
33 
34 

35 
36 
37 

38 
39 
40 

41 

42 
43 

44 
45 
46 

47 
48 
49 
50 

51 

52 
53 
54 
55 

56 
57 


NAME 

A24 
A14 
A04 

C24 
C14 
C04 

30  4 

B14 
B24 

A25 
A15 
A0  5 

C25 
C15 
C05 

BO  5 
315 
325 

A27 
A17 
A0  7 

C27 
C17 
C07 

307 
B17 
327 

A23 
A18 
A08 

C2  8 
C13 

CO  3 

308 
318 
328 

CHG4  MAX 
CHG5MAX 
CHG7MAX 
CHG8MAX 

HACROSS 

3TRYE 
3TRYN 
BrRYA 
3TRYL 

RGK 

DFCOH 
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400 
40G 
10 


400C 
•400 
10 


$4 


1018. 5924 

1600 

3200 


58 
59 
60 

61 
62 
63 

64 
65 
66 


GRIDS 
GRIDN 
GRID  A 

CT 
LATDEV 

RGD2V 

MIL  RAD 
ROTCOR 

REFDEF 
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APPENDIX    P 
TEST   PROGRAM    LINKER    OUTPUT 


EAX59_PROGRAM    INSTRUCTIONS:    YERSION_J_.0 

*  CCNGFATULATIONS,     YOU    HAVE    JUST   CG.^PILED    A    BASIC    PROGRAM 

INTO    A    TI-59    P50GRAM.        IN    SO    DOING    IT    IS    VERY     POSSIBLE 
THAT    YOUR     PROGRAM    IS     LARGER    THAN    THE    MEMORY    OF    THE 
CALCULATOR.       IF    THIS    IS    THE    CASE    THEN    THE    PROGRAM    HAS 
BEEN    SEGMENTED    AND    PROMPTING    CODS    INSERTED    TO    GUIDE 
YOUR    CALCULATOR    PROGRAM    DURING    ITS    EXECUTION.     THE    P  E^ 
MAINDER    OF    THIS   OUTPUT    CONSISTS    OF    TI-59    CODE    LISTINGS 
AND    OTHER     INFORMATION    TO    AID    YOU    IN    YOUR    PROGRAM 
EXECUTION. 

*  THE    FOLLOWING    DEFINITIONS    ARE    PROVIDED    AS    AN    AID    TO 

READING   THE    PROGRAM    LISTING    FILE. 

*    DEFINITIONS: 

*  MODULE:     A    MODULE     IS    DEFINED    TO    BE    ALL    THE    MEMORY 

DEDICATED    TO    PROGRAM    STEPS.        THE    SIZE    IS    VARI- 
ABLE   AND    IS    DEPENDENT    ON    THE    REGISTER    REQUIRE- 
MENT.       VALUES    RANGE    FROM    0    TO    239,     479    OR    719 
DEPENDING   ON    THE    AMOUNT    OF    REGISTERS    USED    BY 
THE    PROGRAM. 

«    CARD:    A    CARD    IS    DEFINED    TO    BE    ONE    MAGNETIC    CARD. 
A    CARD     HCLDS    4  80    PROGRAM     STEPS.       THESE    STEPS 
ARE    NOT    CONTIGUOUS    BUT    ARE    ARRANGED    ON    THE    TWO 
SIDES    OF   THE   CARD. 

*  SIDE:    A    SIDE    IS    ONE    HALE. OF    A    CARD.     IT    CONTAINS 

UP    TO    240    STEPS.       WHEN    ONE    SIDE    OF    A    CARD    IS 
READ    3Y    THE    CALCULATOR    240     PROGRAM    STEPS    ARE 
FILLED    IN    MEMORY.       THESE    BLOCKS    OF    240    STEPS 
ARE    REFERED    TO     AS    "BANKS"    IN    THE    MANUFACTURER 
LITERATURE.       WHEN    LOADING    A    CARD    YOU    WILL    LOAD 
ONLY    BANK    NUMBER    1     AND/OR    2    FOR    PROGRAM    STEPS. 

*  PARTITION:    THIS     IS    DEFINED    TO    BE    THE    CURRENT 

SETTING    OF    CALCULATOR    MEMORY    AS     APPLIED    TO    THE 
AMOUNT    OF    MEMORY    DEDICATED    TO    STORAGE    REGISTERS 
AND    THE    AMOUNT     DEDICATED    TO    PROGRAM    STEPS. 
WE    WILL    BE    DEALING    WITH     3    PARTITIONS.     THESE 
ARE: 

3  719.29 

4  479.59 

5  239.69 

FORMAT:  X  YYY.ZZ 

WHERE    X    STANDS     FOR    PARTITION    NUMBER 

YYY    STANDS    FOR    PROGRAM    STEPS     (0-YYY) 
ZZ    STANDS    FOR    REGISTERS     (0-ZZ)  . 
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^^_5^_E52^^^^_H^i-^  NG_3Y_M0DULE/CAHD/SIDE: 

*  THE    FCLLOWING    IS    YOUR    PROGRAM    LISTING,     TH5    PROGPA.'I    IS 

LISTEI    ACCORDING    TO    MODULE    NUMBER    AND    ITS    ASSOCIATED 
CARDS    AND     CARD    SIDES. 

*  REFER    TO   THE    TI-59    PROGRAMMER'S    GUIDE    ON    HOW    TO    INPUT    A 

PROGRAM    AND    WRITE    IT    TO    MAGNETIC    CARDS. 

*  CAUTICN:    ENSURE    THAT    THE    CORRECT    CALCULATOR    PARTITION 

IS    SET   BEFORE     INPUTTING    A    PROGRAM    AND    WRITING    TO 
MAGNETIC    CARDS. 

*  CAUTICN:    ENSURE     THAT    YOU    DO    NOT    CONFUSE    BANK    NUMBERS 

WITH    CAPD/t^ODULE   OR    SIDE    NUMBERS.        THE    NUMBERS    WHICH 
REFER    TO    THE    LISTING     ARE    AKIN    TO    A    VIRTUAL    ADDRESS 
AND    DC    NOT    REPRESENT    THE    ACTUAL    BANK    NUMBER. 
IF    IN    DOUBT,     REMEMBER    TO    USE    THE    TABLE    BELOW    TO 
TRANSLATE    VIRTUAL    TO     ACTUAL    BANK    NUMBERS. 

VIRTUAL    BANK  ACTUAL    BANK 

MCDULE    # 

CARD1 

SIDE1 BANK1 

MODULE     # 

CARE1 

SIDE2 BANK2 

MCDULE    # 

CARD2 

SIDE1    3ANK3 

TI-59    LISTING 


*     MANUAL    RETURN    REGISTER    TOP    IS       81 
STORE    IN    REGISTER:  8 


*  PROGRAM    PARTITION    IS    239.89 

*  PARTITICN    NUMBER    IS    9 


*MCEULE  #  1 

CARD  #1 

SIDE  #1 

000 

76 

001 

1  1 

002 

71 

003 

12 

ooa 

68 

005 

71 

006 

13 

007 

68 

008 

71 

009 

14 

010 

68 

01  1 

24 

012 

08 

013 

08 

2ND    LBL 

A 

SBR 

B 

2ND    NO? 

SBR 

C 

2ND    NO? 

SBR 

D 

2ND    NO? 

CE 

3 

3 
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014 

08 

015 

91 

016 

76 

017 

14 

018 

42 

019 

00 

020 

69 

021 

28 

022 

01 

023 

72 

024 

08 

025 

02 

026 

93 

027 

00 

028 

00 

029 

00 

030 

91 

031 

76 

032 

12 

033 

53 

034 

43 

035 

59 

036 

85 

037 

53 

038 

43 

039 

63 

040 

65 

04  1 

53 

042 

53 

043 

43 

044 

65 

045 

75 

046 

43 

047 

61 

048 

54 

049 

55 

050 

43 

051 

64 

052 

54 

053 

38 

054 

75 

055 

43 

056 

62 

057 

65 

058 

53 

059 

53 

060 

43 

061 

65 

062 

75 

063 

43 

064 

61 

065 

54 

066 

55 

067 

43 

068 

64 

069 

54 

070 

39 

071 

54 

072 

54 

073 

42 

074 

59 

075 

53 

076 

43 

077 

58 

078 

85 

079 

53 

080 

43 

081 

63 

082 

65 

/ 

RCL 

64 

2ND 


STO 
59 

RCL 
58 

+ 

RCL 

63 

X 


LBL 


OP 


LBL 


3 

R/S 

2ND 

D 

STO 

0  0 

2ND 

28 

1 

STO 

08 

2 

• 

0 

0 
0 

R/S 
2ND 
B 

RCL 
59 

+ 

RCL 

63 

X 


RCL 
65 

RCL 
61 

RCL 
64 

2ND  SIN 

RCL 

62 

X 


RCL 
65 

RCL 
61 


2ND  IND 


COS 
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083 

53 

084 

53 

085 

43 

086 

65 

087 

75 

088 

43 

089 

61 

090 

54 

091 

55 

092 

43 

093 

64 

09U 

54 

095 

39 

096 

85 

097 

43 

098 

62 

099 

65 

100 

53 

101 

53 

102 

43 

103 

65 

104 

75 

105 

43 

106 

61 

107 

54 

108 

55 

109 

43 

110 

64 

11  1 

54 

112 

38 

113 

54 

11  4 

54 

115 

42 

1  16 

58 

117 

92 

113 

76 

119 

13 

120 

53 

121 

53 

122 

53 

123 

43 

124 

58 

125 

75 

126 

43 

127 

52 

128 

54 

129 

45 

130 

02 

131 

85 

132 

53 

133 

43 

134 

59 

135 

75 

136 

43 

137 

53 

138 

54 

139 

45 

140 

02 

141 

54 

142 

34 

143 

54 

144 

42 

145 

67 

146 

53 

147 

53 

143 

53 

149 

43 

150 

59 

151 

75 

COS 


RCL 
65 

RCL 
61 
) 
/ 

RCL 
64 

2ND 

+ 

RCL 

62 

X 


RCL 

65 

RCL 
61 

) 
/ 

RCL 
64 

2ND  SIN 


STO 

58 

INV  SBR 

2ND  LBL 

C 


ttCL 
53 

RCL 
52 

2 

■f 

RCL 
59 

RCL 
53 

2 

SQRT(X) 

STO 

67 

( 


RCL 
59 
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152 

153 

154 

155 

155 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

163 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


43 
53 
54 
55 
43 
67 
54 
27 
38 
65 
43 
64 
54 
42 
68 
43 
53 
32 
43 
52 
32 
22 
77 
01 
39 
53 
43 
65 
75 
43 
68 
54 
42 
68 
61 
02 
00 
53 
03 
65 
43 
65 
85 
43 
68 
54 
42 
63 
92 


RCL 
53 

\ 

RCL 
67 

2ND 

2ND 

X 

RCL 

64 

STO 

68 

RCL 

58 

X<=>T 

RCL 

52 

X<  =  >T 

INV 

2ND 

01 

89 

icL 

65 

RCL 
68 

) 

STO 

68 

GTO 

02 

00 


X 

RCL 

65 

+ 

RCL 

63 


INV 
SIN 


X>  =  I 


STO 
68 

INV 


SBR 
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♦MODULE  #  2 

CAEC  #1 

SIDE  #1 

000 

76 

2ND  LBL 

001 

14 

D 

002 

43 

RCL 

003 

67 

57 

004 

32 

X<=>T 

005 

43 

RCL 

006 

47 

47 

007 

22 

INV 

008 

77 

2ND  X>=T 

009 

00 

00 

010 

58 

58 

Oil 

53 

( 

012 

43 

RCL 

013 

1  1 

1  1 

OIU 

42 

STO 

015 

71 

71 

016 

43 

RCL 

017 

12 

12 

018 

42 

STO 

019 

72 

72 

020 

43 

RCL 

021 

13 

13 

022 

42 

STO 

023 

73 

73 

024 

43 

RCL 

025 

14 

14 

026 

42 

STO 

027 

74 

74 

028 

43 

RCL 

029 

15 

15 

030 

42 

STO 

031 

75 

75 

032 

43 

RCL 

033 

16 

16 

03a 

42 

STO 

035 

76 

76 

036 

43 

RCL 

037 

19  • 

19 

038 

42 

STO 

039 

77 

77 

04  0 

43 

RCL 

04  1 

18 

18 

042 

42 

STO 

043 

78 

7S 

044 

43 

RCL 

045 

17 

17 

046 

42 

STO 

047 

79 

79 

048 

53 

SBR 

049 

71 

050 

15 

£ 

051 

54 

! 

052 

54 

053 

42 

STO 

054 

69 

69 

055 

61 

GTO 

056 

01 

01 

057 

23 

23 

058 

43 

RCL 

059 

67 

67 

060 

32 

X<  =  >T 

06  1 

43 

RCL 

062 

48 

48 

063 

22 

INV 

064 

77 
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2ND  X>=T 

065 

01 

066 

32 

067 

53 

063 

43 

069 

20 

070 

42 

071 

71 

072 

43 

073 

21 

074 

42 

075 

72 

076 

43 

077 

22 

078 

42 

079 

73 

080 

43 

081 

23 

082 

42 

083 

74 

084 

43 

085 

24 

086 

42 

087 

75 

088 

43 

089 

25 

090 

42 

091 

76 

092 

43 

093 

28 

094 

42 

095 

77 

096 

43 

097 

27 

098 

42 

099 

78 

100 

43 

101 

26 

102 

42 

103 

79 

104 

53 

105 

71 

106 

15 

107 

54 

108 

54 

109 

42 

110 

69 

111 

61 

112 

01 

113 

23 

114 

42 

115 

00 

116 

24 

117 

03 

118 

93 

1  1  9 

00 

120 

00 

121 

0  0 

122 

91 

123 

42 

124 

00 

125 

24 

126 

03 

127 

93 

128 

01 

129 

01 

130 

06 

131 

91 

132 

42 

133 

00 

01 

32 

( 

RCL 

20 

STO 

71 

RCL 

21 

STO 

72 

acL 

22 

STO 

73 

RCL 

23 

STO 

74 

RCL 

24 

STO 

75 

RCL 

25 

STO 

76 

RCL 

23 

STO 

77 

RCL 

27 

STO 

78 

RCL 

26 

STO 

79 

aBR 

E 

) 

STO 

69 

GTO 

01 

23 

STO 

0  0 

C2 

3 

• 

0 

0 

0 

R/S 

STO 

00 

CE 

3 

• 

1 
1 

o 

R/S 
STO 
00 
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134 

24 

135 

03 

136 

93 

137 

00 

138 

00 

139 

00 

140 

91 

141 

76 

142 

15 

143 

42 

.  144 

00 

145 

69 

146 

23 

147 

02 

148 

72 

149 

08 

150 

04 

151 

93 

152 

00 

153 

00 

154 

00 

155 

91 

♦MCCULE  #  3 

CARD  #1 

SICE  #1 

000 

43 

001 

67 

002 

32 

003 

43 

004 

49 

005 

22 

006 

7-' 

007 

00 

008 

56 

009 

53 

010 

u3 

01  1 

29 

012 

42 

013 

71 

01  4 

43 

015 

3  0 

016 

42 

017 

72 

013 

43 

019 

31 

020 

42 

021 

73 

022 

43 

023 

32 

024 

42 

025 

74 

026 

43 

027 

33 

028 

42 

029 

75 

030 

43 

031 

34 

032 

42 

033 

76 

034 

43 

035 

37 

036 

42 

037 

77 

038 

43 

039 

36 

040 

42 

CE 
3 

• 

0 
0 
0 

R/S 

2ND 

E 

STO 

00 

2ND 

28 

2 

STO 

08 

4 

• 

0 
0 
0 
R/S 


L5L 


OP 


2ND  IND 


acL 

67 
X<=>T 

RCL 

49 

INV 

2ND  X>=T 

00 

56 

RCL 

29 

STO 

71 

RCL 

30 

STO 

72 

RCL 

31 

STO 

73 

RCL 

32 

STO 

74 

RCL 

33 

STO 

75 

RCL 

34 

STO 

76 

RCL 

37 

STO 

77 

RCL 

36 

STO 
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0U1 

78 

042 

43 

043 

35 

044 

42 

045 

79 

046 

53 

047 

71 

048 

15 

049 

54 

050 

54 

051 

42 

052 

69 

053 

61 

054 

01 

055 

16 

056 

43 

057 

67 

058 

32 

059 

43 

060 

50 

06  1 

22 

062 

77 

063 

01 

064 

12 

065 

53 

066 

43 

067 

38 

068 

42 

069 

71 

070 

43 

071 

39 

072 

42 

073 

72 

074 

43 

075 

40 

076 

42 

077 

73 

078 

43 

079 

41 

030 

42 

081 

74 

082 

43 

083 

42 

084 

42 

085 

75 

086 

43 

087 

43 

083 

42 

089 

76 

090 

43 

091 

46 

092 

42 

093 

77 

094 

43 

095 

45 

096 

42 

097 

78 

098 

43 

099 

44 

100 

42 

101 

79 

102 

53 

103 

71 

104 

15 

105 

54 

106 

54 

107 

42 

108 

69 

109 

61 

78 

RCL 

35 

STO 

79 

SBR 


STO 

69 

GTO 

01 

16 

RCL 

67 

X<=>T 

RCL 

50 

INV 

2ND  X>=T 

01 

12 

( 

RCL 

38 

STO 

71 

RCL 

39 

STO 

72 

RCL 

40 

STO 

73 

RCL 

41 

STO 

74 

RCL 

42 

STO 

75 

RCL 

43 

STO 

76 

RCL 

46 

STO 

77 

RCL 

45 

STO 

78 

RCL 

44 

STO 

79 

SBR 

r 

STO 

69 

GTO 
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1  10 

01 

11 1 

16 

112 

43 

113 

67 

114 

99 

115 

93 

1  16 

42 

117 

00 

118 

73 

119 

08 

120 

69 

121 

38 

122 

91 

123 

76 

124 

15 

125 

42 

126 

00 

127 

69 

128 

28 

129 

03 

130 

72 

131 

08 

132 

04 

133 

93 

134 

00 

135 

00 

136 

00 

137 

91 

♦  tlODaiE  #  u 

CASE  #1 

SIDE  #1 

000 

76 

001 

15 

002 

00 

003 

42 

004 

70 

005 

53 

006 

53 

007 

43 

008 

72 

009 

94 

010 

35 

Oil 

53 

012 

43 

013 

72 

014 

45 

015 

02 

016 

75 

017 

53 

018 

04 

019 

65 

020 

43 

021 

71 

022 

65 

023 

53 

024 

43 

025 

73 

026 

75 

027 

43 

028 

67 

029 

65 

030 

43 

031 

56 

032 

54 

033 

54 

034 

54 

01 

16 

RCL 

67 

2ND 

2ND 

STO 

0  0 

HCL 

08 

2ND 

38 

R/S 

2ND 

E 

STO 

00 

2ND 

28 

3 

STO 

03 

4 

• 

0 
0 
0 
R/S 


PRT 
ADV 


2ND  IND 


OP 


LBL 


OP 


2ND  IND 


LBL 
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^1 


035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
05  3 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
030 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 


34 
54 
55 
53 
02 
65 
43 
71 
54 
54 
42 
80 
43 
80 
32 
43 
51 
77 
00 
65 
43 
63 
99 
43 
67 
99 
98 
61 
01 
48 
53 
43 
76 
85 
43 
75 
65 
43 
30 
85 
43 
74 
65 
43 
80 
45 
02 
54 
99 
98 
53 
43 
66 
85 
43 
57 
85 
53 
43 
55 
75 
43 
68 
54 
85 
53 
43 
79 
85 


SQRT  (X) 
/ 


X 

RCL 

71 

) 

STO 

80 

RCL 

60 

X<=>T 

RCL 

51 

2ND 

00 

65 

RCL 

68 

2MD 

RCL 

67 

2ND 

2ND 

GTO 

01 

48 

RCL 

76 

+ 

RCL 

75 

X 

RCL 

80 

+ 

RCL 

74 

X 

RCL 

80 

Y**X 

2 


X>  =  T 


FRT 


PRT 
ADV 


2ND 
2ND 

( 

RCL 

66 

+ 

RCL 

57 

+ 

RCL 

55 

RCL 
58 


RCL 
79 


PRT 
ADV 
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3 

4 
5 
6 

7 


104 

105 

106 

107 

108 

109 

110 

11  1 

112 

11 

1  1 

11 

11 

I  1 
118 

II  9 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 


43 
78 
65 
43 
80 
35 
43 
77 
65 
43 
80 
45 
02 
54 
54 
99 
93 
53 
43 
80 
85 
53 
53 
43 
60 
75 
43 
54 
35 
02 
0  0 
54 
55 
43 
67 
65 
01 
00 
00 
0  0 
54 
54 
99 
98 
43 
70 
42 
00 
73 
08 
69 
38 
91 


PET 


PRT 
ADV 


2ND    IND 


TI-59    PROGEAM    SPECIFIC    INSTRUCTIONS: 


THE    FCLLOWING    INFORMATION 
YOUR    PROGRAM. 


HILL    TELL    YOU    HOW    TO    RUN 


YCU    KCST    ENTER    YCUR    PROGRAM    MANUALLY    INTO    THE    CALCULATOR 
AND    WRITE    THE     PROGRAM    TO    MAGNETIC    CARDS.       THIS    STEP 
ONLY    NEEDS    TO     EE    ACCOMPLISHED    ONCE.        AFTER    THAT,     THE 
PROGRAM    IS    ENTERED    USING    THE    MAGNETIC    CARD    FACILITY 
OF    THE   CALCULATOR.       SEE    THE    MANUFACTURER'S    LITERATURE 
ON    ENTERING    A     PROGRAM    AND    WRITING    IT    TO    MAGNETIC 
CARDS.    YOU    WILL    NEED    TO    PARTITION    MEMORY. 
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HC«    TC    TAETITION 
*    KEY    SEQUENCE 


THE    MEMORY 


X 

2ND 

OP 

17 


*    X 


IS   THE    PARTITION 
YCUR    PROGRAM. 


NUMBER    GIVEN    IN    THE    LISTING    CF 


*    WHEN    TO    PARTITION    THE   MEMORY 

*  ONCE   BEFORE    BEADING    IN    CARDS. 

*  CNCE    BEFORE    MANUALLY    ENTERING 

WRITE    TO    CARDS. 


PROGRAM    IN    ORDER    TO 


HOW    TC    START    AND    RUN    YOUR    PROGRAM 

*  IDRN   ON    CALCULATOR 

*  PARTITION    CALCULATOR 

*  LCAD   ALL    MODULE    1    CARDS 

*  CPTIONAL    STEP:    IF    YOU    SELECTED    THE    MANUAL    DATA    INPUT 

DENOTED    IN    YOUR    BASIC    PROGRAM    BY    USING    THE    "DATA" 
AND    "READ"    STATEMENTS    THEN     YOU    MUST    MANUALLY    ENTER 
YCUR    DATA     INTO    THE    CALCULATOR    MEMORY.        THIS    IS 
DCNE     BY    REEERRING    TO    "INPUT    DATA    TO    READ"    TABLE 
PROVIDED     AT    THE    END    OF    THIS    LISTING-       MANUALLY 
ENTER    THE    GIVEN    DATA    INTO    THE    REGISTERS    USING    THE 
FCLLOWING     KEYSTROKES: 

DATA 

STO 

XX 

WHERE     XX    IS    THE    DESIRED    REGISTER    NUMBER. 

*  INITIALIZE    THE    MANUAL    3BR    RETURN    CONTROL    STACK    WITH 

THE    FOLLOWING    KEYSTROKES: 

XX 

STO 

08 

WHERE     XX    IS    THE    MANUAL    RETURN    REGISTER    STACK    TOP. 
(THIS     IS    GIVEN    WITH    THE    PROGRAM    LISTING    NEAR    THE 
PARTITION    INFORMATION.) 
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II 


*  CPSSS    "A"    TO    START. 

*  FOLLOW     DISPLAY    PROMPTS. 

*  DEFINITIONS: 

*    RON-TIME    PROWPTS:       ARE    DEFINED    TO    BE    CALCULATOR 
PROMPTS    DISPLAYED    IN    THE    CALCULATOR     WINDO.* 
IN     THE    FORM    OF     A    4    DIGIT    DECIMAL,    2    DIGIT 
INTEGER    OR    A    1     DIGIT    INTEGER.     EACH    PROMPT 
IS    OUTLINED    BELOW: 

*  4    DIGIT    DECIMAL 

*  FORMAT:     X.  YYY 

*  X  STANDS  FOR  MODULE  NUMBER  (1-9) 

*  YYY  STANDS  FOR  STARTING  ADDRESS 

*  ACTIONS: 

*  LOAD    ALL    MODULE    X    CARDS. 

*  PRESS    FOLLOWING    KEY    SEQUENCE    TO 
INTIALIZE: 

RCL 

00 

GTO 

Y 

Y 

Y 

*  PRESS  R/S  TO  CONTINUE  IN  NEW  MOD. 

*  2  DIGIT  INTEGER 

^  FORMAT:  XX  WHERE  XX  STANDS  FOR  A 
REGISTER  NUMBER. 

*  ACTIONS: 

*  LOOK  UP  IN  REGISTER  MAP  PROVIDED 

THE  BASIC  NAME  THAT  CORRESPONDS 
TO  THE  XX  NUMBER. 

*  ENTER  THE  BASIC  VARIABLE  VALUE. 

*  PRESS  R/S  TO  CONTINUE  WITH  THE 

ENTERED  VALUE. 

*  1     DIGIT    INTEGER 

*  FORMAT:     X    WHERE    IS    A    MODULE    NUMBER. 

*  ACTI ONS • 

*  LOAD  ALL  MODULE  X  CARDS. 

*  PRESS  FOLLOWING  SEQUENCE  TO 

INITIALIZE: 

RCL 

00 

INV 

S3R 

*  PRESS  R/S  TO  CONTINUE  IN  NEW  MOD. 

*  PAUSE  IN  DISPLAY 

*  AN  UNFORMATTED  DIGIT  FLASHES  IN  THE 

DISPLAY  BEFORE  BEING  DISPLAYED. 
THIS  IS  AN  ANSWER  THAT  CORRESPONDS 
TO  A  REQUESTED  ANSWER  IN  THE  BASIC 
PROGRAM  USING  THE  BASIC  PRINT 
STATEMENT.   THESE  ANSWERS  OCCUR  IN 
THE  SAME  ORDER  AS  THEY  WERE 
REQUESTED  IN  THE  BASIC  PROGRAM. 

*  ACTIONS:  NOTE  ANSWER  AND  PRESS  R/S. 

*  88  3  IN  DISPLAY 

*  SPECIFIC  PROMPT  THAT  INDICATES  THAT 

THE  PROGRAM  HAS  STOPPED  EXECUTION. 

*  ACTIONS:  IF  DESIRED  FIND  ANSWERS  IN 

THE  CALCULATOR  MEMORY  USING  THE 
"TI-59  REGISTER  TO  NAME  MAPPING" 
AT  THE  END  OF  THE  INSTRUCTIONS. 

♦  EXPECTED  CONTROL  FLOW  PROMPTS  BY  MODULE  FOLLOW: 
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EXPECTED    PROMPTS    FOR    MODULE    #    1 

*  FORWARE    JUMP    CONTINUATION:     4     DIGIT    REAL    CCDZ. 

*  NONE 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  2.000 

*  MANUAL    RETURN    FROM    A   SUBROUTINE:     1     DIGIT    CODE, 

*  NONE 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE, 

*  NONE 

EXPECTED    PROMPTS    FOR    MODULE    #    2 

*  FORWARD    JUMP    CONTINUATION:     4    DIGIT    REAL    CODE. 

*  3.  1  16 

*  3.000 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  4.00  0 

*  MANUAL    RETURN    FROM    A    SUBROUTINE:     1     DIGIT    CODE, 

*  NONE 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  3.000 

EXPECTED    PROMPTS    FOR    MODULE    #    3 

*  FORWARD    JUMP    CONTINUATION:     4    DIGIT    REAL    CODE. 

*  NONE 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  4.000 

*  MANUAL    RETURN    FROM    A    SUBROUTINE:     1     DIGIT    CODE, 

*  YES 

*  SEQUENTIAL  CONTINUATION:  4  DIGIT  REAL  CODE. 

*  NONE 

EXPECTED    PROMPTS    FOR    MODULE    #    4 

*  FORWARD    JUMP    CONTINUATION:    4     DIGIT    REAL    CCDZ. 

*  NONE 

*  SUBROUTINE  INVOKE:  4  DIGIT  REAL  CODE. 

*  NONE 

*  MANUAL    RETURN    FRCM    A    SUBROUTINE:     1     DIGIT    CODE, 

*  YES 

*  SEQUENTIAL    CONTINUATION:    4    DIGIT    REAL    CODE. 

*  NONE 
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INPai    DATA    TO    READ    IIAPPING 


EATA 

-.0133670 
21.2691 
•105.7 

-.00001499 
.06630 
-.U1 

.77 

.01314 

.00001720 

-.0149331 
24.3439 
64.7 

-.00001420 
.07069 
.06 

1.26 

.01506 
.0000  1678 

-.0173835 
29,8741 
2255.2 

-.00001663 
.08487 
3.29 

1.3 

.02713 
.00001306 

-.0182137 
32.3731 
4107. 4 

-.00001668 
.09272 
5. 14 

1.36 

.02891 

.00001410 

57C0 
7000 
10800 
17600 

715 

0 
0 

0 
800 

1.0 

0 


HEG 


NAME 


11 

12 
13 

A24 
A14 
A0  4 

14 
15 
16 

C24 
C14 
C04 

17 

18 
19 

BO  4 
B14 
324 

20 
21 
22 

A25 
A15 

A05 

23 
24 
25 

C25 
CIS 
COS 

26 
27 

28 

BOS 

315 
B25 

29 
30 
31 

A27 
A17 
A0  7 

32 
33 
34 

C27 
C17 

C07 

35 
36 
37 

B07 
B17 
B27 

38 
39 

40 

A28 
A13 
A08 

41 
42 
43 

C2  8 
C18 
CO  8 

44 
45 
46 

B08 
B18 
B28 

47 
48 
49 
50 

CHG4.-IAX 
CHG5MAX 
CHG7:^AX 
CHG8MAX 

51 

HACEOSS 

52 
53 

54 
55 

BTRYE 
BTRYN 
BTRYA 
BTRYL 

1! 

RGK 
DFCOR 
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f 


* 


4 


400C 
4000 
10 

4000 
•400 
10 

1018.5924 

1600 

3200 


58 
59 
60 

61 
62 
63 

64 
65 
66 


GRIDS 

GHIDN 
GRIDA 

OT 

LATDEV 

RGDEV 

MILRAD 
ROTCOR 
E2FDEF 
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TI-59     EEGISTER    TO    NAIIE    MAPPING 


SEG# 

11 
12 
13 

ia 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
36 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
56 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 


BASIC  NAME 

A22* 

A14 

A04 

C24 

C14 

C04 

B04 

B14 

B24 

A25 

A15 

A05 

C25 

C15 

COS 

805 

315 

325 

A27 

A17 

A07 

C27 

C17 

C07 

307 

317 

327 

A28 

A18 

AGS 

C28 

C18 

COS 

308 

318 

B28 

CHG4MAX 

CHG5MAX 

CHGTMAX 

CHG8MAX 

HACROSS 

BTEYE 

BTRYN 

3TRYA 

3TRYL 

RGK 

DFCOR 

GRIDE 

GRIDN 

GHIDA 

OT 

LATDEV 

RGDEV 

MILRAD 

ROTCOR 

REFDEF 

TGTEG 

TGTAZ 

INVOKE 

FN  FD 

7  FN  PARAMETER) 
(FN  PARAMETEF 
(FN  PARAMSTEH) 
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i 


II 


7a 

75 
76 
77 
78 
79 
80 


EL 


FN  PAEAMETEB) 

FN  PARAMETER  I 

FN  PaRAMSTEE 

FN  PARAMETER  I 

FN  PARAMETER 

FN  PARAMETSR'i 


END    BAX59    SEGMENTATION/INSTRUCTION:     VERSION     1.0 
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